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ABSTRACT 

The  effect  of  stress  and  temperature  on  the  creep  behavior  of  an  Al-2.0wt%.Li 
alloy  was  investigated  in  the  temperature  range  from  300  to  500°C.  This 
temperature  interval  corresponds  to  a  solid  solution  of  Li  in  Al.  Experimental 
results  indicate  that  Al-2.0wt%Li  behaves  as  a  pure  metal  class  alloy  (class  II). 
This  is  demonstrated  by  several  creep  characteristics  including  the  value  of  the 
stress  exponent  (n  ~  5),  the  shape  of  the  creep  curve,  and  the  nature  of  the  creep 
transient  after  a  temperature  change.  However,  anomalous  behavior  of  the 
activation  energy  was  observed.  Activation  energies  up  to  55  kcal/mole, 
decreasing  to  approximately  33  kcal/mole  at  higher  temperatures,  were  observed 
by  the  temperature  cycling  technique. 
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I.    INTRODUCTION 

Both  the  blacksmiths  of  old  and  today's  metallurgists  have  long  recognized 
that  small  changes  to  processing  variables  or  to  alloy  compositions  can  create 
widely  varying  effects  on  the  mechanical  properties  of  the  resulting  metal. 
Metallurgists  today  attribute  these  effects  on  the  mechanical  properties  to  changes 
in  the  microstructure.  Now,  metallurgists  must  explore  and  exploit  these  effects 
to  meet  the  demands  of  today's  rapidly  evolving  materials  needs. 

From  Italy's  Da  Vinci  to  America's  Wright  brothers,  aviation  has  always 
been  at  the  forefront  of  technology.  Military  specifications  dictate  that  putting 
more  payload  in  the  air  is  the  overwhelming  factor  in  design.  Aluminum  alloys 
are  the  predominant  materials  of  airframe  construction  because  of  their  high 
strength-to- weight  ratio  when  used  as  beam  structures  and  aircraft  skin.  Criteria 
used  to  evaluate  metals  for  aerospace  applications  begin  with  relative  strength 
and  density.  However,  some  components  must  withstand  necessarily  high 
temperatures  as  well  as  maintain  good  strength  characteristics.  Other  important 
criteria  include  resistance  to  cyclic  fatigue,  corrosion  resistance,  weldability  and 
good  appearance. 

Many  materials  have  adequately  met  these  criteria  and  are  in  wide  use  today. 
Factors  which  spur  continued  research  in  high  strength,  temperature  resistant 
Aluminum  alloys  are  cost  of  materials,  as  well  as  fabrication  and  lifecycle  costs. 
When  Li  is  added  to  Al  it  forms  an  alloy  with  a  lower  density  and  a  higher 
modulus  of  elasticity  than  pure  Al.  Yet  Al-Li  alloys  without  other  alloying 
elements  are  not  widely  used  commercially  due  to  poor  mechanical  properties. 
When  other  alloying  elements  are  added  to  Al-Li  systems,  the  mechanical 


properties  can  be  improved  dramatically.  At  ambient  temperatures,  the 
mechanical  properties  of  Al-Li  alloys  are  well  known.  These  include  factors 
such  as  high  strength-to-weight  and  stiffness-to-weight  ratios,  and  good 
toughness  and  cyclic  fatigue  characteristics.  However,  very  little  information 
exists  on  the  high  temperature  behavior  of  the  Al-Li  system.  Thus,  limits  on 
elevated  temperature  exposure  of  these  alloys  have  yet  to  be  determined. 
Therefore,  it  is  the  main  thrust  of  this  investigation  to  expand  the  body  of  data 
on  an  Al-2.0wt%Li  alloy  in  terms  of  the  stress  and  temperature  dependence  of  its 
creep  behavior,  as  well  as  to  investigate  the  activation  energies  for  creep  in  the 
temperature  range  300  to  500°C. 


II.  BACKGROUND 


A.   CREEP  OF  SOLID-SOLUTION  ALLOYS 

This  research  considered  the  constant  stress  creep  behavior  of  Al-2.0wt%Li 
in  the  temperature  range  from  300  to  500°C.  The  solvus  temperature  for  this 
alloy  is  ~  360°C  (see  Figure  l).Thus  at  300  and  350°C  effects  may  arise  due  to 
precipitation.  From  400°C  upwards,  the  effects  of  solid  solution  strengthening 
alone,  without  influence  from  precipitation  ,  will  be  observed. 
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Figure     1.     AI-Li  Phase  Diagram 


The  creep  response  of  solid  solutions  has  been  classified  into  two  categories 
based  on  the  premise  that  dislocation  motion  occurs  through  sequential  glide  and 
climb  processes  [Ref.  1]. 

1.  Class  I  Solid  Solutions 

The  first  category  commonly  referred  to  as  class  I  or  alloy  class, 
exhibits  dislocation  glide  as  the  rate-controlling  process  during  deformation  due 
to  solute  drag  on  the  moving  dislocations.  Class  I  alloys  commonly  exhibit  a 
stress  exponent,  n  (=  d  In  a  /  d  In  e),  of  about  3,  a  brief  primary  stage  of  creep 
and  random  distribution  of  dislocations.  The  activation  energy  is  equal  to  that 
for  solute  diffusion. 

2.  Class  II  Solid  Solutions 

The  second  category  is  called  class  II  or  pure  metal  class,  where 
dislocation  climb  becomes  rate-controlling.  Class  II  alloys  exhibit  a  stress 
exponent,  n,  close  to  5,  extensive  primary  creep  and  subgrain  formation.  The 
activation  energy  is  essentially  equal  to  that  for  self-diffusion. 

B.    STRUCTURE  OF  AL-LI  ALLOYS 
1.     Effect  of  Li  Addition  in  Al 

As  an  addition  to  Al  alloys,  Li  offers  a  significant  decrease  in  density 
and  increase  in  modulus  of  elasticity.  Li  has  a  high  solubility  in  Al  (5.2%)  in  the 
binary  Al-Li  system.  Greatly  improved  strengths  result  from  the  5'  (Al3Li 
phase)  precipitation  during  age  hardening.  Also,  each  percent  of  Li  added  to  Al 
reduces  the  density  of  the  alloy  by  3%  and  increases  the  modulus  of  elasticity  by 
6%,  up  to  4  %  Li  additions. 

The  role  of  Li  increasing  the  modulus  of  elasticity  of  Al  has  been 
addressed  recently  in  a  paper  by  Fox  and  Fisher  on  a  study  of  1.33  and  2.14wt% 


Lithium  additions  to  Al.    The  Li  addition  in  Al  results  in  an  increase  in  the 
electron  charge  density  between  Al  and  Li  atoms.   Accordingly,  this  increase  in 
charge  density  results  in  an  increased  average  force  of  attraction  between  the 
atoms  and  thus  an  increased  modulus  of  elasticity.  [Ref.  2] 
2.     Ordering  in  the  Al-Li  Matrix 

Radmilovic,  Fox  and  Thomas  contend  that  ordering  exists  within  the 
range  of  the  solid  solution  and  not  only  in  the  temperature  region  below  the 
solvus.  This  was  based  on  the  observation  of  superlattice  reflections  and  no 
discernable  5'  particles  irrespective  of  prior  solution  treatment  temperature  or 
quench  medium  employed  following  solution  treatment.  The  ordered  alloy 
apparently  decomposes  into  a  modulated  order/disorder  structure  by  a  spinodal 
mechanism  with  increased  Li  content  in  the  ordered  regions  until  such  regions 
coarsened  into  discrete  5'  particles. [Ref.  3] 

The  increased  modulus  and  the  presence  of  ordering  in  the  solid 
solution  are  evidence  that  Al  and  Li  atoms  tend  to  bond  readily.  The 
temperature  dependence  of  such  bonding  has  not  been  addressed.  It  has  been 
shown,  however,  that  both  the  modulus  of  elasticity  and  the  stacking  fault  energy 
influence  the  creep  behavior  of  materials,  hence  it  is  likely  that  the  creep 
response  of  Al-Li  alloys  may  be  influenced  by  Li  addition  through  these  material 
parameters  [Ref.  1]. 

C.   THE  MECHANISM  OF  CREEP 

1.     Interaction  of  Dislocations  and  Solute  Atoms 

A  dislocation  has  a  stress  field  associated  with  it.  Solute  atoms,  because 
their  sizes  are  either  too  small  or  too  large  in  relation  to  the  solvent  atom  size, 
are  also  centers  of  elastic  strain.    Consequently,  the  stress  fields  from  these 


sources  can  interact  and  can  mutually  exert  force.   This  is  an  elastic  interaction 
due  to  misfit. 

The  interaction  of  the  solute  atoms  and  edge  dislocations  leads  to  a 
migration  of  solute  atoms  to  the  dislocation  where  they  form  an  atmosphere 
around  it.  This  solute  atmosphere,  called  the  Cottrell  atmosphere,  has  the  effect 
of  locking  the  dislocation.  This  makes  it  necessary  to  apply  additional  force  to 
free  the  dislocation  from  the  atmosphere.  [Ref.  4] 

Li  atoms  are  very  close  to  the  same  size  as  Al  atoms.  However,  even 
when  the  size  difference  is  zero,  a  contribution  to  the  binding  energy  between  the 
solute  and  the  dislocation  can  result  due  to  the  difference  in  modulus  between  the 
two.  The  solute  atom  behaves  as  an  elastic  heterogeneity  in  the  dislocation  strain 
field.  If  the  solute  is  softer  (i.e.  smaller  shear  modulus)  than  the  matrix,  the 
energy  of  the  strain  field  of  the  dislocation  can  be  reduced  by  distortion  of 
solute.  This  means  that  the  energy  will  be  negative  and  thus  there  will  be  an 
attraction  between  the  solute  and  the  matrix.  For  a  solute  that  is  harder  than  the 
matrix,  there  will  be  a  force  of  repulsion  between  the  two. [Ref.  4] 

At  high  temperatures  (>  0.5  Tm),  the  mobility  of  the  solute  atoms  will 
be  much  greater  than  that  of  the  dislocation,  with  the  result  that  they  will  not 
restrict  the  dislocation  motion.  In  the  range  of  temperature  where  solute  atoms 
and  dislocations  are  equally  mobile,  there  are  strong  interactions  with 
dislocations. [Ref.  4] 

The  movement  of  dislocations  will  result  in  disordering  of  ordered 
regions  in  a  partially  ordered  alloy.  This  disruption  would  cause  an  increase  in 
the  energy  of  the  material  and  requires  additional  work  to  be  done.  Mechanical 
properties  thus  are  altered  when  materials  have  an  ordered  structure.    Fully 


ordered  alloys  may  deform  by  means  of  the  movement  of  superlattice 
dislocations  at  rather  low  stresses.  However,  the  super  dislocations  (i.e.  closely 
spaced  pairs  of  unit  dislocations  bound  together  by  an  antiphase  boundary)  must 
move  as  pairs  in  order  to  maintain  the  ordered  structure.  This  makes  cross-slip 
and  climb  more  difficult.  Long-range  order  thus  leads  to  high  rates  of  strain- 
hardening  and  frequently  to  brittle  fracture  as  well  as  high -temperature  creep 
resistance.  [Ref.  4] 

2.  Creep  Rate  Dependence  on  Temperature 

Creep  is  a  thermally  activated  process.  Thus,  the  creep  rate,    Emm,  can 

be  described  by  an  Arrhenius  type  of  relation: 

/  ~Qc   x  /1X 

£min  a    exp(  ^r  )  (1) 

where  Qc  is  the  activation  energy  for  creep,  R  is  the  gas  constant,  and  T  is  the 
absolute  temperature.  This  has  been  demonstrated  by  several  experiments. [e.g. 
Ref.  1] 

3.  Creep  Rate  Dependence  on  Diffusion 

If  the  creep  rate  is  dependent  on  dislocation  climb  or  upon  the  motion 
of  jogged  screw  dislocations,  then  the  steady  state  creep  rate,  £min,  should  be 
proportional  to  an  appropriate  diffusion  coefficient,  D: 

emin  a  D  (2) 

and  there  is  ample  evidence  for  the  correlation  of  £min  and  D.  For  example,  the 
steady-state  creep  rate  stress  data  at  various  temperatures  for  a  given  metal  can 
be  made  to  virtually  coincide  if  the  creep  rate  is  first  divided  by  the  diffusion 
coefficient  for  the  appropriate  temperature  and  then  plotted  against  stress.  Since 
the  creep  rate  is  proportional  to  the  diffusion  coefficient,  it  is  logical  that  the 


activation  energy  for  creep  of  pure  metals  should  be  about  equal  the  activation 
energy  for  self  diffusion. [Ref.  1] 

4.  Creep    Rate  Dependence  on  Stress 

Sherby  and  Burke  [Ref.  1]  note  that  for  low  and  intermediate  stresses, 
the  relationship  between  the  creep  strain  rate  and  stress  (at  constant  temperature) 
can  be  described  by  the  power-law  relation: 

emin  a  <*n  (3) 

where  a  is  the  stress.  If  creep  can  occur  by  several  different  independent 
processes,  the  fastest  of  these  will  be  rate-controlling.  Thus,  the  mechanism  of 
creep  at  very  low  stresses  (range  I)  can  be  associated  with  the  creep  law: 

£min  «  a1  (4) 

where  n  equals  1,  since  this  creep  process  yields  a  more  rapid  creep  rate  than  the 
process  responsible  for  the  intermediate  stress  (range  II)  where: 

emin  a  on  (5) 

and  where  the  value  of  the  stress  exponent,  n,  is  greater  than  1  [Ref  1].  With 
increasing  stress,  it  is  expected  that  a  transition  in  creep  mechanisms  will  occur 
as  the  rate  of  range  II  processes  increases  more  rapidily  with  stress  than  the  rate 
of  range  I  processes. 

5.  Class  I  Alloys  and  Their  Creep  Rate 

Sherby  and  Burke  [Ref.  1:  p.  341]  note  that  creep  of  solid  solution  alloys 
between  e/D  values  ranging  typically  from  1(P  to  10^  cm~2  can  be  divided  into 
two  categories.  Class  I  alloys  are  first  and  their  strain  rate  is  proportional  to  the 
cube  of  the  modulus-normalized  stress: 

emin  =  BDs(|)3  (6) 


where  £min  is  the  strain  rate,  B  is  a  physical  constant,  Ds  is  the  diffusion 
coefficient  for  the  solute,  c  is  the  true  stress,  E  is  the  elastic  modulus  and  n  is 
equal  to  three.  Dislocation  glide  is  the  mechanism  for  creep  where  the  velocity 
of  the  dislocation  motion  is  determined  by  the  amount  of  friction  that  the  solute 
atoms  generate  to  oppose  the  glide  motion.  The  activation  energy  for  creep 
would  be  the  activation  energy  for  diffusion  of  the  Li  solute. 

6.     Class  II  Alloys  and  Their  Creep  Rate 

Class  II  alloys  are  the  second  classification  and  their  strain  rate,  £min>  is 
proportional  to  the  cube  of  the  stacking  fault  energy,  (y)3,  to  the  modulus- 
normalized  stress  raised  to  the  fifth  power,  (  p  )*  and  to  the  self-diffusion 

coefficient,  Di: 

emin  =  A  (y)3  (  f  )5  Di  (7) 

where  A  is  a  material  constant,  R  is  the  gas  constant,  and  n  is  equal  to  five.  The 
mechanism  of  creep  in  this  class  is  dislocation  climb,  the  rate  of  which  is  also 
affected  by  subgrain  size.  Class  II  alloys  exhibit  a  distinct  primary  creep  stage, 
similar  to  pure  metals,  and  the  activation  energy  for  creep  can  be  anticipated  to 
be  the  same  as  the  activation  energy  for  self-diffusion.  On  the  basis  of  increased 
modulus  alone,  one  could  anticipate  that  the  strain  rate  of  the  alloy  would  be 
slower  than  that  of  Al  for  either  class  I  or  class  II  alloys. 

D.  OTHER  EFFECTS  ON  THE  ACTIVATION  ENERGY 

The  activation  energy  for  a  given  metal  can  be  calculated  if  the  creep  rate  is 
known  at  two  temperatures: 

Qc  =  .R(^^)IOie  (8) 


Earlier,  it  was  noted  that  the  activation  energy  for  creep  was  about  equal  to 

the  activation  energy  for  self-diffusion.    If,  however,  the  modulus  were  to  be 

strongly  temperature  dependent,  the  activation  energy  for  creep  would  not  be 

exactly  equal  to  the  activation  energy  for  self-diffusion.   Similarily,  the  stacking 

fault  energy  may  vary  with  temperature.    The  influence  of  such  temperature 

dependent  factors  can  be  shown  with  the  aid  of  equations  7  and  8: 

n         RrAlo£_|  p^D,         ,Sr^E|  ™^1|       (q\ 

A  ™  ds  a£;  a£; 

The  term  -R  8lnD/3(l/T)  is  simply  equal  to  the  activation  energy  for  self- 
diffusion.  So,  equation  9  becomes: 

Qc  =  Qd  +  5R^f  -3R^  (10). 

If  E  and  y  do  not  change  much  with  temperature,  then  Qc  will  effectively 
equal  Qd-    However,  if  E  and  y  are  strongly  temperature  dependent  then  Qc 
would  differ  from  Qd. 

This,  in  fact  was  found  to  be  the  case,  as  experimentally  determined  values  of 
Qc  were  observed  to  be  greater  than  known  values  of  Qd  for  pure  Al  in  the 

temperature  range  of  300  to  470°C. 

E.    PREVIOUS  RESEARCH  AT  NPS 

Anomously  high  activation  energies  were  reported  by  Taylor  [Ref.  5]  in  his 
study  of  Al-0.5wt%Li  and  Al-1.0wt%Li,  as  well  as  by  Ellison  [Ref.  6]  in  his 
study  of  Al-2.0wt%Li.  These  results  were  attributed  to  the  alloy's  temperature 
dependence  of  the  modulus  and  the  stacking  fault  energy  relative  to  pure  Al. 
These  results  represent  the  initial  point  where  this  study  of  the  creep  behavior 
and  of  the  activation  energy  for  Al-2.0wt%Li  commences. 
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III.    EXPERIMENTAL  PROCEDURE 

A.  CASTING  AND  SECTIONING 

A  Al-2.0wt%Li  casting,  number  NPGS13  and  manufactured  utilizing  99.99 
percent  pure  Aluminum  alloyed  with  99.90  percent  pure  Lithium,  was  received 
from  the  Naval  Surface  Weapons  Center  (NSWC)  in  White  Oak,  Maryland.  The 
casting  was  in  the  form  of  a  tapered  cylindrical  ingot  200  mm  (8.0  in)  in  length 
and  approximately  76  mm  (3.0  in)  in  diameter.The  casting  was  sectioned  into 
billets  for  subsequent  solution  treatment  and  processing.  The  traverse  sections 
were  25  mm  (1.0  in)  thick  and  76  mm  (3.0  in)  in  diameter. 

B.  THERMOMECHANICAL  PROCESSING 

Solution  treatment  was  conducted  at  540°C  for  12  hours  with  a  subsequent 
water  quench  to  room  temperature.  A  Lindburg  Type  B-6  heavy  duty  furnace 
was  used  for  homogenization.  For  rolling,  the  homogenized  billet  was  placed  in 
a  Blue  M  furnace,  Model  8655f-3,  for  5  minutes  reheating  at  temperatures 
between  400°C  and  450°C  prior  to  each  rolling  pass.  A  massive  steel  plate  was 
located  on  the  floor  of  the  furnace  to  act  as  a  heat  capacitor  in  order  to  maintain 
a  stable  annealing  temperature.  Care  was  taken  to  commence  the  5  minute  anneal 
"clock"  once  the  temperature  of  the  billet  was  above  400°C.The  last  rolling  pass 
was  followed  by  cold  water  quenching  to  room  temperature.  The  TMP  is 
schematically  represented  in  Figure  2. 
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Figure    2.    TMP  for  Samples 

Billets  were  rolled  in  a  Fenn  Laboratory  Rolling  Mill  using  the  reduction 
scheme  shown  in  Table  1.  By  turning  the  screw  down  wheels  the  number  of 
turns  indicated  (second  column)  to  the  setting  shown  (third  column),  then  the 
mill  gap  indicated  (fourth  column)  would  result  in  the  amount  of  strain  per  pass 
shown  (last  column). 

The  resulting  rolled  strip,  nominally  2  mm  (0.08  in)  in  thickness,  was 
machined  to  dimensions  for  tensile  testing,  see  Figure  3.  The  rolled  strip  was 
first  cut  by  band  saw  into  rectangular  blanks  and  machined  into  reduced  gauge 
section,  sheet-type,  tensile  specimens  with  the  long  axis  parallel  to  the  rolling 
direction.  A  special  holding  device  was  fabricated  to  secure  the  samples  duiing 
machining  due  to  the  extreme  softness  and  ductility  of  the  material.  Five 
specimens  were  machined  at  one  time.  The  finished  samples  were  examined  for 
defects  and  all  machining  burrs  were  carefully  removed  with  a  jeweler's  file. 
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Prior  to  testing,  all  samples  received  a  heat  treatment  of  15  minutes  at  500°C  to 
provide  a  fully  annealed  microstructure. 

Table  1.    ROLLING  SCHEDULE 


ROLL# 

ROLL  CHANGE 

MILL  SETTING 

MILL  GAP 

%  STRAIN 

(0.08  in  +  0.01  in) 

(right/left) 

(in) 

(per  pass  ) 

open 

+(12  +  4) 

0/0 

0.94 

— 

1 

-(2  +  0) 

0/0 

0.84 

10.4 

2 

-(1+2) 

6/6 

0.74 

12.0 

3 

-(1+2) 

4/4 

0.64 

13.5 

4 

-(1+2) 

2/2 

0.54 

15.6 

5 

-(1+2) 

0/0 

0.44 

18.5 

6 

-(1+2) 

6/6 

0.34 

22.7 

7 

-(1+2) 

4/4 

0.24 

29.4 

8 

-(0  +  6) 

6/6 

0.18 

25.0 

9 

-(0  +  5) 

1/1 

0.13 

27.7 

10 

-(0  +  4) 

5/5 

0.09 

30.7 

11 

-(0  +  3) 

2/2 

0.06 

33.3 

12 

-(0+  1.3) 

0.7/0.7 

0.047 

21.7 

C     CONSTANT  EXTENSION  RATE  TESTS 

Constant  extension  rate  tensile  tests  were  performed  on  an  Instron  TM-S-L 
Table  Model  Universal  Testing  Machine  with  a  1,000-pound  calibrated  load  cell. 
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The  tensile  testing  temperature  was  maintained  by  a  Marshall  tubular  furnace  in 
combination  with  a  Lindburg  Model  59344  temperature  controller. 
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Figure     3.     Tensile  Test  Specimen  Drawing 

Special  self-aligning  grips  were  designed  to  hold  the  tensile  test  specimens 
(Figure  4)[Ref.  5].  These  grips  were  fabricated  of  Inconel  625  alloy  by  Collins 
Instrument  Company,  Freeport,  Texas,  using  a  wire  electro-discharge  machining 
(EMD)  process  for  tolerance  control. 

Unique  features  of  these  grips  include  a  tapered  shank  leading  to  a  button 
head  which  aligns  itself  by  transmitting  the  load  to  the  grips  via  the  taper.  The 
recessed  face  of  the  grips  compressively  hold  the  specimen,  applying  the  load  to 
the  entire  tab,  not  just  the  area  above  the  bolt  hole. 

Once  temperature  was  attained,  the  furnace  was  de-energized,  lowered,  and 
the  grip  assembly  with  the  sample  installed  was  inserted  into  the  grip  holder 
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assembly.  The  furnace  was  raised,  re-energized  and  allowed  again  to  stabilize 
for  approximately  45  minutes.  While  the  sample  and  grips  were  equilibrating, 
the  slack  was  removed  from  the  load  train  by  a  small  pre-load  in  order  to 
prevent  slippage  in  the  grips.  Since  the  entire  gauge/grip/heater  assembly  is 
mounted  to  the  bottom  of  the  crosshead  and  moves  down  with  the  crosshead  as 
the  test  progresses,  the  original  temperature  gradient  can  be  maintained  for  any 
extension  likely  to  be  encountered  with  this  alloy. 
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Figure     4.     Self-Aligning  Grip  Assembly 

D     CONSTANT  STRESS  TESTS 

Constant  stress  tensile  creep  tests  were  conducted  on  a  pair  of  test  machines 
designed  at   NPS  and  were  patterned  after  a  machine  built  by  Barrett  and  later 
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modified  by  Matlock  at  Stanford  University  [Ref  6].  The  constant  stress  is 
obtained  by  means  of  an  Andradre-Chalmers  lever  arm.  The  contoured  lever 
rotates  as  the  specimen  elongates  (Figure  5). 
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Figure    5.    Diagram  of  Constant  Stress  Machine 

This  rotation  decreases  the  moment  arm  of  the  applied  load  as  the  cross- 
sectional  area  of  the  specimen  decreases  with  elongation,  thus  maintaining  a 
constant  true  stress.  The  design  of  the  arm  is  based  on  the  assumption  that  the 
load  train  is  rigid  and  the  linkage  displacement  is  taken  up  uniformly.    The 
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machine  is  capable  of  transmitting  loads  between  1.5  and  222.5  Newtons  (0.3  to 
50  lbs)  and  at  strains  as  high  as  300  percent. 

The  contour  of  the  lever  arm  was  designed  using  Autocad  in  conjunction 
with  the  highly  accurate  graphical  technique  developed  by  Coghlan[Ref.  8].  The 
design  used  an  effective  gauge  length  of  13  mm  (0.5  in)  with  an  initial  lever  arm 
ratio  of  10:1.  The  lever  arm  was  constructed  of  6.4  mm  (0.25  in)  thick  2024-T6 
Aluminum  and  is  attached  to  a  9.53  mm  (0.375  in)  diameter  shaft  rotating  on  a 
set  of  precision  bearings.  An  adjustable  counterbalance  was  affixed  to  the 
opposite  end  of  the  shaft,  balancing  the  lever  arm.  This  counterbalance  in 
conjunction  with  another  weight  attached  to  the  shaft  to  compensate  for  the 
weight  of  the  load  train,  ensured  that  the  only  load  sensed  by  the  sample  was  that 
of  the  applied  load. 

A  flexible  0.55  mm  (0.02  in)  thick  steel  strap  follows  the  lever  arm  contour 
and  hangs  along  the  vertical  tangent  to  the  lever.  A  second  flexible  strap  hangs 
tangent  to  a  two  inch  radius  disc  centered  at  the  fulcrum  point  which  transmits 
the  tensile  load  to  the  sample  via  the  load  train.  The  entire  linkage  was 
calibrated  using  a  50  lbf  capacity  interface  load  cell  installed  in  the  load  train. 
The  maximum  stress  variation  through  300  percent  elongation  was  1 .4  percent 
[Ref.  5]. 

Sample  elongation  was  measured  using  a  Schaevitz  linear  variable 
differential  transformer  (LVDT)  with  a  1  inch  displacement.  The  core  of  the 
LVDT  was  attached  to  the  upper  specimen  linkage.  The  2.866  mv/v  signal 
output  from  the  LVDT  is  conditioned  by  a  Schaevitz  Model  ATA  101  analog 
transducer  amplifier.   The  amplifier  voltage  was  measured  by  a  Hewlett-Packard 
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(HP)  Model  3497A  Data  Acquistion  Unit  controlled  by  an  HP  Model  9826 
computer. 

Marshall  tubular  furnaces  were  used  for  temperature  control  in  conjunction 
with  Eurotherm  Model  808  digital  temperature  controllers.  The  temperature 
gradient  in  the  furnaces  was  controlled  and  monitored  similarly  as  with  the 
Instron  testing.  Preheat  and  sample  loading  procedures  were  also  similar. 

Prior  to  the  temperature  stabilizing,  the  creep  test  program  was  started.  The 
LVDT  was  zeroed  (as  determined  with  a  digital  multi-meter)  in  parallel  with  the 
amplifier  (later,  this  step  would  be  eliminated  by  a  modification  in  the  creep  data 
acquisition  program  which  zeroed  the  readings  artificially).  A  precalculated 
weight  in  a  plastic  bag  was  carefully  suspended  from  the  lever  arm  by  the 
flexible  strap,  and  each  test  was  allowed  to  continue  to  failure. 

1.     Features  of  the  Software  for  the  Constant  Stress  Tests 

The  software  designed  to  run  the  creep  tests  was  written  in  HP  Basic  2.0 
and  featured  a  user  friendly,  menu-driven  interface,  see  Appendix  G.  The 
software  was  designed  to  control  two  creep  machines  running  simultaneously, 
and  would  plot  and  display  on  a  video  monitor  the  real  time  engineering  strain  vs 
time  graphs  for  simultaneous  tests.  The  algorithm  was  written  to  sample  5000 
voltage  and  time  data  pairs  for  each  test  and  then  convert  the  voltage  to 
engineering  strain  using  1  volt  per  20%  strain.  Once  the  test  was  completed  the 
menu  gave  the  user  the  c  hoice  of  plotting  either  true/engineering  strain  vs  time 
graphs  on  the  HP  Model  7275B  plotter,  or  of  saving  the  accumulated  data  to  one 
of  three  floppy  disc  drives.  If  desired,  the  program  also  prints  a  table  with  the 
reading  number,  the  percent  strain  and  the  time  of  the  reading  on  the  HP  Think 
Jet  printer. 
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E.  TEMPERATURE  CYCLING  TESTS 

The  temperature  cycling  tests  were  similar  to  the  creep  tests  with  the 
exception  that  the  temperature  was  raised  10°C  above  the  initial  test 
temperatures  and  after  from  four  to  eight  hours,  and  was  subsequently  returned 
to  the  initial  test  temperature.  This  procedure  was  repeated  until  failure  for  each 
sample.  The  load  and  cycle  times  were  such  that  each  test  would  cycle  several 
times  over  a  two  to  four  day  period. 

Later  receipt  of  Eurotherm  Model  808  programmable  digital  temperature 
controllers  allowed  precise  control  of  temperature  ramp,  level,  and  dwell  time. 
The  PID  features  of  these  controllers  also  were  adjusted  to  eliminate  temperature 
over-shoot. 

F.  DATA  REDUCTION 

For  the  Instron  tests,  the  raw  data  was  obtained  manually  from  the  Instron 
strip  chart  recorder.  The  data  from  the  plastic  region  were  converted  to  true 
stress  strain  data  by  a  program  written  in  Basic  for  the  NPS  Mainframe 
computer  (see  Appendix  G).  The  program  was  written  to  calculate  a  correction 
factor  to  account  for  mechanical  slippage  while  testing.  These  data  points  were 
plotted  using  the  Easyplot  graphics  routine  on  the  NPS  mainframe  computer. 
The  peak  true  stress  from  the  above  data  was  paired  with  the  known  applied 
strain  rate  to  determine  a  single  data  point. 

For  the  creep  tests,  the  data  was  stored  to  5  1/4  in  floppy  disc  and  output  on 
the  plotter.  The  creep  rate  in  the  secondary  region  was  graphically  determined 
from  the  true  strain  vs  time  creep  curve  and  was  paired  with  the  known  applied 
stress  to  constitute  a  single  data  point. 
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The  temperature  cycling  test  data  was  reduced  in  a  similar  manner  as  the 
creep  tests.  Additionally,  the  strain  rate  vs  true  strain  graphs  were  plotted  using 
a  computer  program  written  in  HP  Basic  2.0.  This  data  reduction  program  was 
designed  to  be  user-friendly  and  is  menu-driven  (see  Appendix  G).  The  menu 
choices  included  several  types  of  graphs,  true  strain  tables,  strain  rate  tables,  and 
calculation  of  activation  energy.  An  example  of  the  tables  produced  is  in 
Appendix  F. 

The  activation  energies  for  the  alloy  were  calculated  from  temperature 
cycling  tests  by  graphical  differentiation  of  the  creep  curve  and  were  compared 
to  the  values  of  the  activation  energy  for  pure  Al. 

G.  OPTICAL  MICROSCOPY 

Samples  were  mounted  in  Sample-Quik,  manually  ground  to  600  grit,  and 
polished  with  3|J.m  diamond  paste.  The  samples  were  then  electro-polished  in 
Keller's  reagent  at  14  volts  for  12  seconds,  and  anodized  in  Baker's  solution  at 
14  volts  for  60  seconds.  The  temperature  of  both  processes  was  between  -20  and 
-24°C.  Optical  micrographs  were  taken  at  various  magnifications  on  a  Zeiss 
optical  microscope  under  plane  polarized  light. 
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IV.     RESULTS  AND  DISCUSSION 

A.  MICROSCOPY 

Optical  microscopy  was  conducted  by  Ellison  [Ref.  6]  on  as-rolled  samples 
and  on  samples  annealed  at  500°C  prior  to  creep  testing.  He  reports  that  the  as- 
rolled  material  exhibited  grains  somewhat  elongated  in  the  direction  of  rolling, 
consistent  with  the  processes  of  fabrication.  Subsequent  annealing  results  in  a 
microstructure  that  has  large,  equiaxed  grains,  which  demonstrated  that  The 
anneal  at  500°C  for  15  minutes  was  sufficient  to  remove  the  effects  of  the  rolling 
[Ref.  6].  Figure  6,  presents  a  micrograph  of  the  grip  section  from  a  sample 
deformed  at  300°C. 


Figure    6.    Optical  Micrograph  of  300°C   Sample: 
Crip  Section  at  50x 
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It  shows  an  equiaxed  grain  structure.  Comparison  with  previous  microscopy 
[Ref.  6]  reveals  the  same  microstructure  and  suggests  little  precipitation,  either  in 
grain  interiors  or  upon  grain  boundaries,  as  a  result  of  heating  to  300°C. 

B.  CONSTANT  EXTENSION  RATE  TESTS 

Figure  7  summarizes  typical  results  of  Instron  tests  of  the  Al-2.0%Li  alloy 
conducted  at  300° C.  Note  that  the  material  tested  at  the  faster  strain  rate 
achieves  a  higher  yield  strength,  rate  of  strain  hardening  and  maximum  stress 
than  that  at  the  slower  rate.  Under  these  conditions,  strain  hardening 
predominates  the  stress  strain  curve  and  there  is  no  well-developed,  steady-state 
behavior. 

Figure  8  summarizes  the  results  of  Instron  tests  conducted  at  450°C,  and 
comparison  to  Figure  7  illustrates  the  effect  of  temperature.  Note  again  that  the 
material  tested  at  the  faster  stain  rate  achieves  a  higher  yield  strength  and 
maximum  stress  than  that  at  the  slower  rate.  However,  under  these  conditions, 
softening  of  the  material  clearly  predominates  the  stress  strain  curve. 
Deformation  appears  to  occur  at  a  nearly  constant  stress  for  strains  above  10%, 
therefore,  suggesting  an  approximate  steady-state  behavior  of  the  alloy. 

C.  CONSTANT  STRESS  TESTS 

In  this  portion  of  the  research,  specimens  were  tested  at  different  stresses  and 
secondary  creep  rates  were  calculated  by  graphical  differentiation  of  the  creep 
curves.  Each  specimen  was  tested  to  failure  at  a  constant  stress.  Figure  9,  in 
which  true  strain,  e,  is  plotted  against  time,  shows  a  typical  creep  curve  obtained 
at  a  temperature  of  300  °C. 
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Figure    7.    Stress  Strain  Curves  at  300°C  for  Various  Strain  Rates 
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Figure    8.    Stress  Strain  Curves  at  450°C  for  Various  Strain  Rates 
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Figure    9.    Creep  Curve  at  500°C  for  a  Stress  of  2.65  MPa: 


emin   =  1-50  x  10-4  sec- 1 
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As  seen  in  the  figure,  the  creep  curve  exhibits  three  main  features:  a 
decelerating  primary  stage  up  to  ~  50%,  a  well-defined  secondary  stage  and  an 
accelerating  tertiary  stage  prior  to  sample  failure.  The  shape  of  the  creep  curve 
is,  therefore,  similar  to  those  reported  for  pure  Al  by  Sherby.[Ref.  1] 

The  effect  of  the  applied  stress  at  a  higher  temperature  is  demonstrated  by 
comparing  Figure  9,  tested  at  500°C  and  2.65  MPa,  to  Figure  10,  tested  at 
500°C  and  5.48  MPa  (note  that  the  creep  results  are  represented  on  different 
time  axes.).  For  a  greater  applied  stress,  the  alloy  sustains  a  higher  creep  rate. 
Also,  the  primary  stage  is  less  extensive  at  500°C  when  compared  to  that  at 
300°C.  For  all  tests  in  this  investigation,  creep  rates  increased  as  the  applied 
load  increased  and  creep  rates  increased  as  the  temperature  increased. 

Figure  11  shows  a  typical  creep  rate,  e,  versus  true  strain,  e,  curve 
corresponding  to  the  strain-time  curve  shown  in  Figure  9  above.  The  creep  rate 
curve  exhibits  three  main  features:  a  distinct  parabolic  shape  with  the  primary 
creep  rate  decreasing  slowly,  a  clear  inflection  point  at  e  ~  0.58  where  the  creep 
rate  goes  through  a  minimum  and  a  pronounced  increase  in  the  tertiary  creep 
rate  prior  to  failure.  The  shape  of  the  creep  rate  curve  is,  therefore,  similar  to 
those  reported  by  Smith  [Ref.  9].  The  jagged  appearance  of  the  curve  is  due  to 
the  effects  of  quantization  errors  in  the  acquisition  equipment.  The  analog-to- 
digital  (a/d)  converter  must  represent  a  continuous-time  signal  in  a  discrete 
manner  and  may  not  distinguish  close,  yet  different,  values  of  voltages  sent  it 
from  the  LVDT  and  its  amplifier.  The  threshold  of  each  level  must  be  enough  to 
cause  the  a/d  converter  to  ascend  to  the  next  discrete  level.  Additional  errors  are 
introduced  since  the  voltage  values  are  truncated  when  each  value  is  converted  to 
binary  code  for  mass  storage  on  the  floppy  disc. 
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Figure  10.    Creep  Curve  at  500°C  for  a  Stress  of  5.48  MPa: 


emin  =  4.83  x  10"3  sec_l 
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Figure  11.     Creep  Rate  Curve  at  500°C  for  a  Stress  of  2.65  MPa: 

£min  =  1.43  x  10-4  sec'l 
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D.  TEMPERATURE  CYCLING  TESTS 

In  this  procedure,  several  identical  specimens  were  crept  at  a  constant  stress, 
o,  while  the  initial  temperature, Tl ,  is  rapidly  increased.  Within  10  minutes  of 
the  temperature  increase,  sufficient  strain  had  accumulated  to  ascertain  the 
presence  of  the  new  creep  rate.  This  new  temperature  level,  T2,  was  held  for 
several  hours.  Finally,  the  increased  temperature  is  rapidly  decreased  to  its 
original  value  of  Tl  and  the  cycling  of  the  temperature  in  this  manner  is 
continued  through  steady- state  and  up  until  failure.  A  typical  example  for  the 
application  of  this  procedure  at  350°C  is  shown  in  Figure  12,  in  which  the  true 
strain,  e,  is  plotted  as  a  function  of  time.  Examination  of  these  data  reveals  that 
there  is  a  similarity  between  temperature  cycling  creep  curves  and  isothermal 
creep  curves  and  that  the  duration  of  the  temperature  excursion  from  Tl  to  T2  is 
nominal  when  compared  to  the  overall  duration  of  the  test. 

Figure  13  reveals  a  typical  creep  rate  versus  creep  strain  curve  for  the 
temperature  cycling  tests  in  which  creep  rate,  e,  is  plotted  as  a  function  of  creep 
strain,  e.  Examination  of  the  figure  reveals  three  important  points.  First,  the 
creep  rate,  after  the  temperature  increase  from  350  to  360°C,  increases  and 
quickly  reaches  the  new  value.  Second,  in  the  minimum  creep  rate  region,  the 
creep  rate  after  the  temperature  change  from  350  to  360°C  reaches  a  value  that 
essentially  agrees  with  the  original  steady-state  rate  established  before  the 
temperature  increase  to  360°C.  Third,  the  creep  transient  after  a  temperature 
change,  is  identical  to  that  of  pure  Al,  as  reported  previously  by  Lytton  et 
a/.[Ref.  10] 
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Figure  12.     Creep  Curve  at  350-360°C  for  a  Stress  of  6.38  MPa: 
ei  =  1.28  x  10-6  sec-1  &  zi  =  6.55  x  10-7  sec-1 
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Figure  13.     Creep  Rate  Curve  at  350-360°C  for  a  Stress  of  6.38 
MPa:  ei  =  1.28  x  10-6  sec-1  &  q  =  6.55  x  10"7  sec  1 
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E.  STRESS  DEPENDENCE  OF  THE  STRAIN  RATE 

The  data  of  Table  2  summarize  the  results  of  the  uninterrupted  tests  to 
failure  and  may  be  utilized  to  determine  the  stress  and  temperature  dependence 
of  the  strain  rate  and  thus  facilitate  determination  of  the  underlying  mechanisms 
of  deformation.  Sherby  and  Burke  [Ref.  1]  note  that,  for  an  intermediate  stress 
range,  the  relationship  between  strain  rate  and  stress  at  constant  temperature  can 
be  described  by  the  power-law  relationship: 

£min  =  Kan  (4) 

values  of  n  for  pure  metals  (Al)  are  usually  equal  to  5.The  experimental  values 
of  log  e  obtained  in  this  research  were  plotted  versus  log  o  for  each  test 
temperature.  The  results  are  shown  in  Figure  14.  The  stress  exponent  for  Al- 
2.0%Li,  as  calculated  from  the  slopes  of  the  isothermal  curves,  shows 
dependence  on  temperature  such  that  n  is  6.7  at  300°C  and  6.0  at  350°C. 
However,  at  400,  450  and  500°C,  n  is  relatively  constant  with  values  of  5.0,  4.8 
and  4.9,  respectively,  and  appears  to  be  independent  of  temperature  in  this  range. 
These  n  values,  calculated  from  the  data  by  linear  regression,  are  compiled  in 
Table  3. 

For  comparison  purposes,  data  from  Park  et  al  [Ref.  11],  who  conducted 
creep  tests  of  Al-2.1wt%Li  in  the  temperature  range  of  500  to  560°C  and 
utilizing  double  shear  specimens,  are  plotted  on  Figure  14.  Note  that  at  500°C 
the  two  data  sets  differ  by  a  factor  of  2  which  is  considered  excellent  agreement 
given  the  different  test  methods.  The  stress  exponent  for  Al-2.1%Li,  as 
estimated  from  the  slope  of  the  plot,  is  essentially  independent  of  temperature 
and  is  close  to  a  value  of  4.6.  The  stress  exponent  from  this  investigation  at 
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Figure  14.     Log-Log  Curves  of  Strain  Rate  Vs.  True  Stress 
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Table  3.     STRESS  EXPONENT 


Temp  (OQ 

Value  of  n 

300 

6.7 

350 

6.0 

400 

5.0 

450 

4.8 

500 

4.9 

500°C  is  4.9  and  also  compares  well  with  the  value  reported  in  the  work  of  Park 
etal.[Rtf.  11]. 

From  the  n  values  obtained  in  this  investigation,  it  is  surmised  that  the 
mechanisms  of  creep  in  the  temperature  range  of  400  to  500°C  are  similar  to 
that  of  pure  Al,  which  deforms  by  glide  and  climb  of  dislocations,  with 
diffusion-controlled  climb  determining  the  overall  rate  of  straining. 

F.  MICROSTRUCTURAL  EVOLUTION  DURING  CREEP 

Optical  microscopy  was  conducted  on  fractured  samples  from  the  300°C  and 
the  500°C  creep  tests.  Figure  15(a),  a  photo-micrograph  of  the  gauge  section  of 
a  coupon  tested  at  300°C,  was  taken  at  a  low  magnification  of  50x.  It  illustrates 
the  elongated  grains  due  to  creep  in  the  direction  of  straining.  Sub-structures 
have  formed  within  the  grains,  as  evidenced  by  the  mottled  contrast.  This  is  in 
accordance  with  class  II  deformation  behavior,  and  can  be  distinguished  more 
readily  in  Figure  15(b),  a  micrograph  of  the  same  region,  but  at  a  magnification 
of  200x.  The  sub  grains  are  well  delineated  in  the  grain  to  the  right  of  center  of 
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Figure  15(a).     Optical  Micrograph  of  300°C   Sample: 
Gauge  Section  at  50x 


Figure  15(b).     Optical  Micrograph  of  300°C   Sample: 
Gauge  Section  at  200x 
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the  field  of  view.    Intergranular  precipitation  is  also  evident  and  likely  consists 
of  5'  phase  on  the  prior  boundaries  of  the  solid  solution. 

Figure  16  shows  a  micrograph  of  the  grip  section  of  a  sample  crept  at  500°C 
and  was  obtained  at  50x.  Larger  grains  due  to  grain  growth  at  the  higher 
temperature  are  evident.  Figure  17  is  a  micrograph  of  this  500°C  sample's 
gauge  section,  also  at  a  magnification  of  50x.  Grain  growth  due  to  temperature 
and  strain  is  evident.  A  coarser  subgrain  structure  (when  compared  to  the 
sample  deformed  at  300°C)  is  also  evident  in  this  micrograph  and  appears  as 
irregular  grain  boundaries. 

G.  ACTIVATION  ENERGY  FOR  CREEP 

The  data  of  Table  4  summarize  the  results  of  the  temperature  cycling  tests 

and  may  be  utilized  to  determine  the  stress  and  temperature  dependence  of  the 

activation  energy  for  creep,  Qc.    Assuming  creep  is  thermally  activated  and 

follows  an  Arrhenius  temperature  dependence  at  constant  stress,  a  value  for  Qc 

can  be  obtained  from  equation  8.  Determination  of  Qc  was  accomplished  by  the 

previously  described  technique  of  evaluating  the  steady-state  creep  rate 

preceeding  and  following  a  small,  abrupt  change  in  temperature.    Temperature 

differences  of  10°C  were  used.    The  creep  rates  were  determined  by  graphical 

differentiation  of  the  strain  versus  time  curves.   All  activation  energies  reported 

in  this  paper  were  plotted  in  terms  of  the  mean  test  temperature  [Ref.  10]  defined 

as: 

J__I    J_      1 

T~2  Wi  +  T2^  ^     *' 

The  results  are  summarized  graphically  in  Figure  18.    Values  of  Qc  at  300 

and  350°C  are  47.4  and  52.3  kcal/mole,  respectively.  The  activation  energy,  Qc, 
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Figure  16.     Optical  Micrograph  of  500°C   Sample: 
Grip  Section  at  50x 


Figure  17.     Optical  Micrograph  of  500°C   Sample: 
Gauge  Section  at  50x 


40 


Table  4.     SUMMARY  OF  Al-2.0%Li  TEMPERATURE  CYCLING 

RESULTS 


# 

Temp  (OQ 

Mean  Temp  (°C) 

ELCsec"1) 

e'H(sec-l) 

Qc  (kcal/mole) 

48 

300-310 

305 

2.10  x  10"6 

4.30  x  10"6 

47.4 

28 

350-360 

355 

1.28  x  10"6 

6.55  x  10-7 

52.3 

29 

400-410 

405 

1.18  x  10-6 

2.22  x  10-6 

57.5 

30 

400-410 

405 

3.98  x  10-7 

7.31  x  10-7 

55.3 

34 

450-460 

455 

5.51  x  10-6 

8.69  x  10-6 

54.9 

54 

470-480 

475 

1.75  x  lO"6 

2.52  x  lO"6 

40.4 

36 

500-510 

505 

1.51  x  10"6 

1.99  x  lO"6 

33.1 

reaches  its  maximum  value  of  56.4  kcal/mole  at  400°C  and  then  drops  rapidly  at 
470  and  500°C  to  values  of  40.2  and  33.1  kcal/mole,  respectively.  Note  that  Qc 
for  pure  Al  in  the  temperature  range  300  to  500°C  (573  to  773K)  is  constant  at 
approximately  35.5  kcal/mole  [Ref.  10]. 

Therefore,  although  the  Al-2.0%Li  alloy  exhibits  a  similar  stress  dependence 
and  formation  of  subgrain  structures  as  observed  in  pure  Al,  the  values  of  Qc  are 
appreciably  higher.  Table  5  is  a  compilation  of  activation  energy  results  for  this 
alloy.  The  data  were  obtained  by  three  different  computational  methods.  The 
first  method  used  graphical  differentiation  directly  applied  to  the  individual 
creep  curves.  The  second  method  involved  use  of  linear  regression  applied  to 
the  creep  rate  versus  creep  strain  curves.  The  third  method  calculated  Qc  from 
the  difference  between  the  isothermal  log  £  vs.  log  g  plots  for  data  obtained  at 
constant  stress.  All  methods  involved  similar  values  of  strain  rate  which  were 
then  employed  with  equation  8  for  determination  of  Qc.  The  values  from  the 
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Figure  18.     Al-2.0%Li  Activation  Energy  Curve  Compared  to  Pure 

Al 
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direct  analysis  of  the  creep  curves  and  from  the  creep  rate  curves  (i.e.  from  the 
differentiated  creep  curves)  yield  close  agreement,  as  expected.  Figure  19  gives 
further  insight  into  the  behavior  of  the  activation  energy  for  the  Al-Li  system. 
This  figure  graphically  compares  Qc  for  Al  with  0.5,  1.0,  and  2.0wt%  Li 
additions.  The  data  for  the  0.5  and  1.0%  Li  additions  are  taken  from  the  NPS 
study  by  Taylor  [Ref.  5].  As  Li  content  increases,  the  observed  activation  energy 
becomes  progressively  higher  within  the  temperature  interval  600  to  725K.  The 
peak  activation  energy  values  are  in  order  of  Li  addition:  Qc  for  Al-2.0%Li 
peaks  at  56.4  kcal/mole  at  700K;  Qc  for  Al-1.0%Li  peaks  at  54  kcal/mole  and 
-700K;  and  Qc  for  Al-0.5%Li  peaks  at  51  kcal/mole  at  700K  to  750K. 


Table  5.     SUMMARY  OF  Al-2.0%Li  ACTIVATION  ENERGY 

RESULTS  IN  KCAL/MOLE 


# 

Temp  (OC) 

Mean  Temp  (°C) 

Creep  Curve; 

Creep  Rate 

Log-Log  Curve 

48 

300-310 

304.92 

47.4 

45.9 

42.5 

28 

350-360 

354.93 

52.3 

50.9 

55.9 

29 

400-410 

404.94 

57.5 

55.6 

49.0 

30 

400-410 

404.94 

55.3 

62.7 

49.0 

34 

450-460 

454.95 

54.9 

54.6 

54.4 

54 

470-480 

474.95 

40.4 

* 
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500-510 

504.95 

33.1 

* 

.. 

*  Note:  these  values  were  not  obtained  due  to  limits  in  the  data  acquisition 
system 
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Figure  19.     Activation  Energy  Versus  Temperature  for  AI  with  0.5, 

1.0,  and  2.0%  Li  Additions 
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H.   NORMALIZED  RESULTS 

Further  insight  into  the  behavior  of  the  Al-2.0%Li  can  be  obtained  by  re- 
plotting  the  data  as  e/D  vs.  o/E  on  double  logarithmic  axes,  as  shown  in  Figure 
20.  Diffusion  and  modulus  data  were  those  for  Al  because  data  for  Al-2.0%Li 
was  unavailable.  The  data  appears  similar  to  the  Al  data  as  modelled  by  the  Wu- 

Sherby  relationship  [Ref.  12]: 

•     .        K  peff ,   .  .      <J._ 

£min=      n  ,2  (sinhag)n  (11) 

where  K  =  2  x  1012,  b  =  Burger's  vector  (2.8  x  lO-iOm),  a  =  2600  and  n  =  5. 
The  effective  diffusion  coefficient,  Deff,  is  essentially  the  lattice  diffusion 
coefficient,  Di,  modified  to  account  for  the  enhancement  of  diffusion  resulting 
from  pipe  diffusion.  The  stress  dependence  of  the  data  is  in  close  agreement 
with  that  of  equation  11.  However  two  observations  can  be  made:  as  temperature 
decreases,  the  degree  of  alloy  strengthening  relative  to  Al  increases;  and,  as  the 
strain  rate  at  a  specific  temperature  decreases,  the  degree  of  alloy  strengthening 
increases.  This  suggests  that  the  temperature  dependence  of  the  normalizing 
values  for  the  alloy  is  different  from  the  temperature  dependence  of  those  values 
for  the  pure  metal. 

Stacking  fault  energy  and  modulus  are  a  function  of  temperature.  If  these 
functions  for  the  alloy  are  the  same  as  for  the  pure  metal,  then  one  would  expect 
little  or  no  variation  in  the  normalized  data  for  the  two  cases.  However,  as  noted 
earlier,  the  activation  energy  for  the  alloy  from  300  to  450°C  is  appreciably 
greater  than  for  the  pure  metal.  This  may  be  an  indication  that  the  temperature 
dependence  of  stacking  fault  energy  and  modulus  is  also  different  for  the  alloy, 
leading  to  the  apparent  scatter  of  data  in  the  normalized  presentation. 
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I.    INTERPRETATION  OF  RESULTS 

First,  the  stress  dependence  of  creep  for  the  alloy  is  the  same  as  that  for  pure  Al. 
Second,  the  observation  of  sub-grain  formation  following  the  extensive  primary 
stages  of  creep  is  also  identical  to  the  creep  mechanisms  of  the  pure  metal. 
Third,  the  activation  energy  clearly  exhibits  a  notably  different  temperature 
dependence  than  does  the  activation  energy  for  pure  Al.  The  activation  energy 
may  be  considered  a  summation  of  self-diffusion,  stacking  fault  energy  and 
modulus  components  (equation  10).  As  noted  earlier  in  Chapter  II,  the  addition 
of  Li  to  Al  has  the  effect  of  increasing  the  modulus  due  to  the  effect  of  Li  on 
bonding  in  the  ordered  structure.  If  the  alloy  were  to  undergo  an  order/disorder 
transition,  e.g.  in  the  temperature  range  between  400°C  and  500°C,  this  could 
result  in  a  more  rapid  decrease  in  modulus  than  for  the  pure  metal  and  could 
account  for  the  values  of  Qc  being  greater  than  those  for  self-diffusion  in  this 
temperature  regime. 

While  the  creep  characteristics  of  Al-2.0%Li  resemble  those  of  Al,  there  is 
strengthening  due  to  the  Li  addition  and  the  magnitude  of  the  strengthening 
increases  as  temperature  decreases.  Possible  factors  to  account  for  this  are  listed 
below. 

1.     Activation   Energy  for  Diffusion 

First,  there  may  be  a  direct  effect  on  the  diffusion  activation  energy, 
that  is,  the  rate  at  which  atoms  jump  into  and  exchange  with  vacancies  in  the 
alloy.  The  determined  activation  energy  for  A1^6  diffusion  in  Al  is  34  kcal/mole 
[Ref.  13].  However,  most  of  the  values  for  the  activation  energy  for  impurity 
diffusion  in  Al  are  found  in  the  range  of  28  to  32  kcal/mole  [Ref.  13].  In  8090 
and  8091  the  diffusivity  of  Li  at  500°C  is  2.5  x  10"9  cm2/sec,  while  that  of  Al  is 
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3.9  x  10"  10  cm^/sec  [Ref.  14].   These  data  suggest  that  the  diffusion  activation 
energy  for  Li  in  Al  is  not  appreciably  different  at  this  temperature. 

According  to  equation  7,  the  higher  activation  energy  becomes,  then  the 
slower  e  becomes.  The  present  creep  data  on  Al-2.0%Li  indicate  that  Qc  for  the 
alloy  is  significantly  higher  than  Qc  for  the  pure  metal  from  300  to  450°C  (47.4 
to  54.9  kcal/mole)  and  then  approaches  that  for  Al  from  470  to  500°C  (40.4  to 
33.1  kcal/mole).  This  explains,  in  part,  why  the  creep  rate  of  Al-2.0%Li  at 
constant  stress  and  the  same  homologous  temperature  is  slower  than  that  of  the 
metal. 

2.     Modulus  of  Elasticity 

In  a  random  solid  solution,  there  is  little  effect  on  bonding  within  the 
range  of  the  solid  solution.  Most  solid  solutions  do  not  show  a  strong  influence 
on  modulus  of  elasticity  with  alloy  content,  since  the  modulus  reflects  the  way  in 
which  the  average  pair  of  atoms  bond.  If,  on  the  other  hand,  there  is  an  effect 
directly  on  the  bonding  between  atoms,  as  could  be  reflected  in  an  ordering 
reaction,  causing  an  increased  concentration  of  Li  in  the  ordered  region,  an 
appreciable  effect  on  the  modulus  of  elasticity  may  be  seen. 

By  equation  7,  e  is  proportional  to  the  modulus-compensated  stress, 
raised  to  the  fifth  power,  (o/E)5.  It  is  known  that  the  room  temperature 
modulus  of  elasticity  for  the  alloy  is  higher  than  that  for  pure  Al.  Each  wt.pct. 
of  Li  added  to  Al  increases  the  modulus  by  6%,  and  at  room  temperature  the 
alloy's  modulus  of  elasticity  is  reported  to  be  78.5  GPa  [Ref.  15].  By 
considering  the  increase  in  modulus,  as  a  result  of  the  presence  of  the  2.0%  Li  in 
the  alloy,  then  for  constant  stress,  the  e  of  Al-2.0%Li  would  be  slower  than  that 
of  Al. 
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It  is  also  known  that  for  any  pure  metal  or  simple  alloy  that  the 
modulus  of  elasticity,  overall,  decreases  with  temperature.  It  is  postulated,  based 
on  the  work  of  Fox  and  Fisher[Ref.  2]  and  on  the  work  of  Radmilovic  et  al  [Ref. 
3],  that  within  the  range  of  the  solid  solution,  there  is  a  tendency  of  the  Li  to 
form  an  ordered  structure.  Thus,  the  modulus  of  elasticity  may  exhibit  a  more 
rapid  decrease  with  increasing  temperature  than  does  the  modulus  of  pure  Al  at 
temperatures  below,  but  near,  the  ordering  temperature  (expected  to  be  -700K 
based  on  the  data  of  this  research). 

If  it  is  assumed  that  this  apparent  increase  in  activation  energy  is 
associated  with  the  modulus  of  elasticity  alone,  then  it  is  postulated  that  the  elastic 
modulus  as  a  function  of  temperature  for  the  alloy,  might  appear  as  shown  in 
Figure  22.  On  this  figure,  the  data  for  the  modulus  of  pure  Al  is  shown  by  the 
solid  line.  The  data  for  the  modulus  of  the  alloy  is  available  at  room 
temperature  (300K)  and  is  78.5  GPa  [Ref.  15].  The  modulus  of  the  alloy  at  the 
melting  point  was  calculated  using  the  following  relationship  [Ref.  2]: 

E  =  KjiG2  (12) 

where  K  is  a  physical  constant,  (I  is  the  average  mass  of  the  alloy  and  6  is  the 
Debye  temperature.  The  temperature  at  the  melting  point  of  the  alloy  is  901 K 
and  the  calculated  modulus  of  elasticity  is  37  GPa.  The  observed  effect  upon  the 
activation  energy  would  arise  if  the  alloy's  modulus  were  to  decrease  with 
temperature  as  shown  by  the  dashed  line.  In  the  temperature  interval  of  600  to 
720K,  the  alloy  has  a  steeper,  more  negative  slope  as  a  result  of  disorder  through 
heating,  or  conversely,  ordering  upon  cooling.  The  slope  associated  with  the 
triangle  represents  a  variation  of  modulus  with  temperature  sufficient  to  account 
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Figure  22.     Proposed  Modulus  of  Elasticity  as  a  Function  of 

Temperature 
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for  an  increase  in  the  creep  activation  energy  from  a  value  of  34  kcal/mole 
(associated  with  diffusion  only),  to  a  value  of  55  kcal/mole  (as  observed 
experimentally).  This  slope  was  calculated  using  equation  10.  Without  using  the 
Debye  temperature,  the  proposed  modulus  of  the  alloy  is  expected  to  decrease  to 
values  below  the  modulus  of  pure  Al  because  the  melting  temperature  of  the 
alloy  is  less  than  for  the  metal. 
3.     Stacking  Fault  Energy 

It  was  shown  in  Chapter  II  that  under  the  condition  of  climb  control, 
the  creep  rate  is  described  by  equation  7  and  that  the  creep  rate  is  proportional  to 
the  cube  of  the  stacking  fault  energy,  (yy.  This  suggests  that  if  the  y  of  the  alloy 
is  lower  than  that  of  Al  then,  at  constant  stress,  the  creep  rate  will  be  slower  than 
that  of  Al. 

The  ordering  reaction  could  also  have  an  influence  on  the  stacking  fault 
energy.  In  the  case  of  pure  Al,  the  best  evidence  is  that,  essentially,  there  is  no 
effect  of  temperature  on  stacking  fault  energy.  The  effect  of  Li  upon  the 
stacking  fault  energy  of  Al  is  not  known  It  is  acknowledged  that  in  the  search 
for  accurate  physical  models,  the  stacking  fault  energy  is  a  difficult  quantity  to 
measure,  and  there  are  no  data  in  the  literature  that  are  widely  accepted. 
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V.  CONCLUSIONS 

The  following  conclusions  can  be  drawn  concerning  the  behavior  and 
characteristics  of  the  binary  alloy  Al-2.0%Li: 

1 .  Al-2.0%Li  exhibits  a  creep  response  consisting  of  a  pronounced  primary, 
a  secondary,  and  a  tertiary  phase.  This  characteristic  curve  shape  is  similar  to 
that  for  pure  Al  and  demonstrates  that  the  steady-state  creep  behavior  of  the  class 
II  Al-2.0%Li  alloy  (metal  class)  is  controlled  by  some  form  of  dislocation  climb. 

2.  Considering  the  stress  dependence  of  each  corresponding  strain  rate,  the 
stress  exponent,  n,  varies  from  -6.7  at  300°C  to  -4.9  at  500°C,  and  is  similar  to 
that  reported  for  Al  (n  -  5). 

3.  Al-2.0%Li  data  at  500°C  correspond  to  within  a  factor  of  2  to  data 
reported  by  Park  et  al  for  a  similar  alloy  using  double  shear  creep  testing. 

4.  Activation  energy  obtained  for  Al-2.0%Li  from  isothermal  creep  and 
from  temperature  cycling  testing  indicates  an  anomously  high  activation  energy 
from  300°C  to  450°C.  Activation  energy  for  creep  reaches  a  maximum  value  of 
55  kcal/mole,  a  difference  of  about  20kcal/mole  higher  than  that  for  Al  at  a 
temperature  of  400°C.  This  may  result  from  the  temperature-dependence  of 
modulus  or  stacking  fault  energy  or  through  additional  processes  such  as 
ordering  of  the  Li  in  the  solid  solution. 

5.  For  the  same  homologous  temperature  the  creep  strength  of  Al-2.0%Li  is 
higher  than  that  of  Al;  a  possible  decrease  in  the  stacking  fault  energy  combined 
with  a  measured  increase  in  the  activation  energy  for  creep  in  Al  with  the 
addition  of  Li  may  responsible  for  this  finding. 
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VI.     RECOMENDATIONS 

1.  Investigate  alternative  methods  to  assess  the  order/disorder  reaction. 

2.  Determine  modulus  as  a  function  of  temperature  using  ultrasonic 
vibration  methods. 

3.  Investigate  microstructure  with  Transmission  Electron  Microscopy 
(TEM). 

4.  Investigate  the  effects  of  various  elements  in  an  Al-Li-X. 
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APPENDIX  A.     STRESS  STRAIN  CURVES 
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Figure  22.    Stress  Strain  Curves  at  350°C  for  Various  Strain  Rates 
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Figure  23.    Stress  Strain  Curves  at  400°C  for  Various  Strain  Rates 
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Figure  24.    Stress  Strain  Curves  at  500°C  for  Various  Strain  Rates 
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APPENDIX  B.     CREEP  CURVES 
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Figure  25.     Creep  Curve  at  300°C  for  a  Stress  of  21.2  MPa: 


Emin  =  6.40  x  10"5  sec"  1 
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Figure  26.    Creep  Curve  at  300°C  for  a  Stress  of  19.0  MPa: 


Emin  =  3.25  x  10"^  sec"  1 


59 


O 
in 


rs. 


-a-  ld  m 

lo  in  -r 


m  pj 


UD  QD  (3 


uiej^s     snj| 


Figure  27.    Creep  Curve  at  300°C  for  a  Stress  of  13.0  MPa: 


emin  =  4.24  x  10'6  sec  1 
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Figure  28.    Creep  Curve  at  350°C  for  a  Stress  of  21.2  MPa: 


emin  =    1.90  x  10"3  sec"1 
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Figure  29.     Creep  Curve  at  350°C  for  a  Stress  of  12.9  MPa: 

emin  =  8.88  x  10"5  sec'1 
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Figure  30.     Creep  Curve  at  350°C  for  a  Stress  of  7.00  MPa: 


emin  =  1.93  x  10"6  sec"1 
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Figure  31.    Creep  Curve  at  400°C  for  a  Stress  of  7.10  MPa: 


emin  =  9.00  x  10-5  sec-l 
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Figure  32.     Creep  Curve  at  400°C  for  a  Stress  of  5.27  MPa: 


£min  =  1.71  x  10"5  sec'1 
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Figure  33.    Creep  Curve  at  450°C  for  a  Stress  of  2.35  MPa: 


£min  =  4.43  x  10"5  sec-1 
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Figure  34.    Creep  Curve  at  500°C  for  a  Stress  of  3.02  MPa: 


emin  =  2.43  x  10"4  sec"1 
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Figure  35.     Creep  Curve  at  500°C  for  a  Stress  of  2.65  MPa: 
£min  =  1.49  x  10"*  sec-1  (Arrested    Test) 
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Figure  36.    Creep  Curve  at  500°C  for  a  Stress  of  2.25  MPa: 


emin  =  6.59  x  10"5  sec"1 
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Figure  37.    Creep  Curve  at  500°C  for  a  Stress  of  1.84  MPa: 


£min  =  1.20  x  10"5  sec"1 
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Figure  38.    Creep  Curve  at  500°C  for  a  Stress  of  1.63  MPa: 


emin  =  6.00  x  10"6  sec"1 
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APPENDIX  C.    TEMPERATURE  CYCLING  CREEP  CURVES 
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Figure  39.     Creep  Curve  at  300-310°C  for  a  Stress  of  11.9  MPa: 
ei  =  2.10  x  10"6  sec-1  &   £2  =  4.30  x  10-6  sec-l 
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Figure  40.     Creep  Curve  at  400-410°C  for  a  Stress  of  3.03  MPa: 
8  1  =  3.98  x  10-7  sec-1  &    £2  =  7.31  x  10"7  sec-1 
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Figure  41.     Creep  Curve  at  400-410°C  for  a  Stress  of  3.03  MPa: 
e  l  =  1.18  x  10-6  sec"1  &   £2  =  2.22  x  10"6  sec"1 
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Figure  42.     Creep  Curve  at  450-460°C  for  a  Stress  of  2.46  MPa: 
£1  =  5.15  x  10-6  sec"1  &   £2  =  8.69  x  10"6  sec"1 
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Figure  43.     Creep  Curve  at  470-480°C  for  a  Stress  of  2.03  MPa: 
£1  =  1.75  x  10"6  sec"1  &   £2  =  2.52  x  10"6  sec"1 
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Figure  44.     Creep  Curve  at  500-510°C  for  a  Stress  of  1.64  MPa: 
el  =  1.51  x  10"6  sec"1  &   Z2  =1.99  x  10"6  sec"1 
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APPENDIX  D.  CREEP  RATE  CURVES 
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Figure  45.     Creep  Rate  Curve  at  300°C  for  a  Stress  of  21.2  MPa: 


£  min     =  6.10  x  10-5  sec-1 
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Figure  46.    Creep  Rate  Curve  at  300°C  for  a  Stress  of  19.0  MPa: 

£min  =  3.32  x  10-5  sec-1 
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Figure  47.    Creep  Rate  Curve  at  300°C  for  a  Stress  of  13.0  MPa: 


emin  =  3.76  x  10"6  sec1 
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Figure  48.    Creep  Rate  Curve  at  350°C  for  a  Stress  of  21.2  MPa: 


£min  =    4.96  x  10'3  sec"1 
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Figure  49.     Creep  Rate  Curve  at  350°C  for  a  Stress  of  12.9  MPa: 


emin  =  8.57  x  10"5  sec-1 
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Figure  50.     Creep  Rate  Curve  at  350°C  for  a  Stress  of  7.00  MPa: 

£min  =  1.94  x  10"6  sec"1 
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Figure  51.    Creep  Rate  Curve  at  400°C  for  a  Stress  of  7.10  MPa: 


£min   =  9.66  x  10"5  sec"1 
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Figure  52.    Creep  Rate  Curve  at  400°C  for  a  Stress  of  5.27  MPa: 


£min  =  1.73  x  10"5  sec"1 
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Figure  53.    Creep  Rate  Curve  at  450°C  for  a  Stress  of  2.35  MPa: 


8min  =  4.37  x  10"^  sec"  1 
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Figure  54.    Creep  Rate  Curve  at  500°C  for  a  Stress  of  5.48  MPa: 

£min  =    4.83  x  10*3  sec"* 
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Figure  55.    Creep  Rate  Curve  at  500°C  for  a  Stress  of  3.02  MPa: 


£min  =  2.43  x  10'4  sec"1 
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Figure  56.    Creep  Rate  Curve  at  500°C  for  a  Stress  of  2.25  MPa: 


£min  =  6.36  x  10"^  sec* 
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Figure  57.     Creep  Rate  Curve  at  500°C  for  a  Stress  of  1.84  MPa: 


emin  =  1.17  x  10"5  sec-1 
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Figure  58.    Creep  Rate  Curve  at  500°C  for  a  Stress  of  1.63  MPa: 

emin  =  6.52  x  10"6  sec"1 


91 


APPENDIX  E.  TEMP.  CYCLING  CREEP  RATE  CURVES 
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Figure  59.     Creep  Rate  Curve  at  300-310°C  for  a  Stress  of  11.9  MPa: 

e  1  =  2.46  x  10-6  sec-1  &   £2  =  4.92  x  10'6  sec1 
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Figure  60.     Creep  Rate  Curve  at  400-410°C  for  a  Stress  of  3.03  MPa: 
e  1  =  4.02  x  10"7  sec-1  &   £2  =  7.90  x  10'7  sec1 
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Figure  61.     Creep  Rate  Curve  at  400-410°C  for  a  Stress  of  3.03  MPa: 
£1  =  1.20  x  10"6  sec"1  &    £2  =  2.21  x  10"6  sec"1 
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Figure  62.     Creep  Rate  Curve  at  450-460°C  for  a  Stress  of  2.46  MPa: 
e  1  =  8.73  x  10-6  sec1  &   £2  =  5.19  x  10'6  sec1 
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Figure  63.     Creep  Rate  Curve  at  470-480°C  for  a  Stress  of  2.03  MPa: 
e  1  =  2.13  x  10"6  sec-1  &   £2  =  2.52  x  10'6  sec"1 
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Figure  64.     Creep  Rate  Curve  at  500-510°C  for  a  Stress  of  1.64  MPa: 
8  1  =  1.99  x  10-6  sec1  &    £2  =  2.77  x  10"6  sec"1 
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APPENDIX  F.    EXAMPLE  DATA  TABLES  FROM  PROGRAM 


FILENAME 

IS  TE5T240 

RD6  * 

TRUE5TRAIN 

TIME, SEC 

RDG  * 

TRUESTRAIN 

TIME, SEC 

n 

+7.353E-03 

+5.010E+00 

4 

+1 .550E-02 

+1 .501E+01 

6 

+2.21 1E-02 

+2.501E+01 

8 

+  2 

.837E-02 

+3.S01E+01 

10 

+3.375E-02 

+4.501E+01 

12 

+  3 

920E-02 

+5.502E+01 

14 

+4.440E-02 

+6.502E+01 

16 

+  4 

. 904E-02 

+7.502E+01 

18 

+5.407E-02 

+3.502E+01 

20 

+  5 

.S53E-02 

+9.502E+01 

22 

+6.32SE-02 

+1 .050E+02 

24 

+  6 

.753E-02 

+  1  .  150E+02 

2S 

+7. 199E-02 

+1 .250E+02 

28 

+  7 

607E-02 

+1 . 350E+02 

30 

+8.031E-02 

+1 .450E+02 

32 

+  8 

.416E-02 

+  1  .550E+02 

34 

+S.305E-02 

+1 .551E+02 

36 

+  9 

170E-02 

+1 .~50E+02 

38 

+9.531E-02 

+1 .850E+02 

40 

+  9 

.378E-02 

+1 .950E+02 

42 

+1 .023E-01 

+2.351E-02 

44 

+  ! 

056E-0 1 

+2.151E+02 

4G 

+1 .089E-01 

+2.251E+02 

43 

+ 1 

121E-01 

+2.351E+02 

50 

+1 . 153E-01 

+2.451E+02 

52 

+  1 

184E-01 

^2.551E+02 

54 

+1 .215E-01 

^2.651E+02 

55 

+  1 

.244E-01 

+2.751E+02 

58 

+1 .274E-01 

+2.351E+02 

50 

+  1 

303E-01 

+2.951E+02 

62 

+1 .331E-01 

+3.051E+02 

64 

+  1 

360E-01 

-3. 151E+02 

65 

+  1  .333E-01 

+3.251E+02 

68 

+ 1 

417E-01 

+3.351E+02 

70 

+1 .445E-01 

+3.451E+02 

~7  i 

+  1 

.474E-01 

+3.S51E+02 

74 

+1 .502E-01 

+3. 651 E+02 

76 

+ 1 

523E-01 

+3.751E+02 

78 

+1 .553E-01 

+3.351Er02 

90 

+  1 

535E-01 

+3.951E+02 

82 

+1 .513E-01 

+4.051E^02 

34 

+ 1 

640E-01 

+  4.  151E+02 

36 

+1 .663E-01 

+4.2S1E+02 

38 

j.  | 

695E-01 

+4.3S1E^02 

90 

+1 .723E-01 

+4.451E+02 

92 

+  1 

750E-01 

+4.5S1E+02 

34 

+1 .777E-01 

+4.551E+02 

96 

+  1 

304E-01 

t4.^S1E+02 

98 

+1 .331E-01 

+4.351E+02 

100 

+ 1 

359E-01 

+4.951E+02 

1  02 

+1 .336E-01 

^S.0S1E~02 

104 

+ 1 

913E-01 

+5. 1 51 E+02 

106 

+1 .940E-01 

+S.251E+02 

108 

+  1 

968E-01 

+5.351E+02 

1  10 

+1 .996E-01 

+5.451E+02 

1  12 

+  2 

023E-01 

+5.551E+02 

1  14 

+2.051E-01 

-5.651E-T02 

1  16 

+  2 

078E-01 

^5.75lE+02 

1  13 

+2. I05E-01 

-5.851E+02 

120 

4-2 

133E-01 

+5. 951 E+02 

122 

+2. 159E-01 

+6.051E+02 

124 

+  2 

1S7E-01 

+5. 1 5 1 E+02 

126 

+2.213E-01 

+6.251E+02 

128 

+  2 

240E-01 

+5.351E+02 

130 

+2.263E-01 

+6 .451E+02 

132 

+  2 

294E-01 

+6.551E+02 

134 

+2.322E-0I 

+6.551E+02 

136 

+  2 

348E-01 

+6.751E+02 

133 

+2 .376E-01 

+5.3S1E+02 

140 

+  2 

401E-01 

+5.951E+02 

142 

+2.429E-01 

+7.052E-02 

144 

+  2 

454E-01 

+7. 1 5 1 E+02 

1  46 

+2.432E-01 

+7.251E+02 

148 

+  2 

506E-01 

+7.352E+02 

150 

+2.533E-01 

+7.4S1E+02 

152 

+  2 

553E-01 

+7.552E+02 

154 

+2.SS5E-01 

+7.652E+02 

156 

+2. 

608E-01 

+7.752E^02 

153 

+2.634E-01 

+7.352E-02 

160 

+  2 

557E-01 

+7.952E+02 

162 

+2 .534E-01 

+S.052E+02 

164 

+  2  . 

706E-01 

+8. 152E+02 

Figure  65.     Creep  Data  Table 
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16G 

+2.732E-01 

+3.252E+02 

168 

+2.754E-01 

+8.352E+02 

170 

+2.780E-01 

+  8 

.452E+02 

172 

+2.803E-01 

+  8 

552E+02 

174 

+2.828E-01 

+  8 

.652E+02 

176 

+2.850E-01 

+  3 

752E+02 

178 

+2.875E-01 

+  8 

.852E+02 

180 

+2.897E-01 

+  8 

. 952E+02 

182 

+2.922E-01 

+  9 

.052E+02 

184 

+2.944E-01 

+  9 

152E+02 

186 

+2.970E-01 

+  9 

.252E+02 

188 

+2.992E-01 

+  9 

352E+02 

190 

+3.018E-01 

+  9 

.452E+02 

192 

+3.040E-01 

+  9 

552E+02 

194 

+3.064E-01 

+  9 

.652E+02 

196 

+3.087E-01 

+  9 

752E+02 

198 

+3. 1 12E-01 

+  9 

.852E+02 

200 

+3. 134E-01 

+  9 

952E+02 

202 

+3. 159E-01 

+ 1 

005E+03 

204 

+3. 181E-01 

+ 1 

015E+03 

206 

+3.206E-01 

+  1 

.025E+03 

208 

+3.229E-01 

+  1 

035E+03 

210 

+3.254E-01 

+  1 

045E+03 

212 

+3.276E-01 

+  1 

055E+03 

214 

+3.301E-01 

+  1 

065E+03 

216 

+3.323E-01 

+  1 

075E+03 

218 

+3.348E-01 

+  1 

085E+03 

220 

+3.370E-01 

+ 1 

095E+03 

Til 

+3.395E-01 

+  1 

105E+03 

224 

+3.417E-01 

+  1 

1 15E+03 

226 

+3.441E-01 

4.  | 

125E+03 

228 

+3.463E-01 

+  ] 

135E+03 

230 

+3.487E-01 

+  1 

145E+03 

232 

+3.508E-01 

+ 1 

155E+03 

234 

+3 .533E-01 

+  1 

165E+03 

236 

+3.554E-01 

■t  1 

175E+03 

238 

+3.578E-01 

+  1 

185E+03 

240 

+3.602E-01 

+  1 

i 95E+03 

242 

+3.635E-01 

+  1 

205E+03 

244 

+3.659E-01 

+ 1 

215E+03 

246 

+3.538E-01 

+  1 

225E+03 

248 

+3.714E-01 

+  1 

235E+03 

250 

+3.744E-01 

+  1 

245E+03 

■jri 

+3.769E-01 

+ 1 

255E+03 

254 

+3.798E-01 

+  1 

265E+03 

256 

+3.824E-01 

+ 1 

275E+03 

258 

+3.853E-01 

+  1 

28SE+03 

260 

+3.378E-01 

+  1 

295E+03 

262 

+3.906E-01 

+  1 

305E+03 

264 

+3.932E-01 

+  1 

315E+03 

265 

+3.960E-01 

-L  | 

325E+03 

268 

+3.986E-01 

+ 1 

335E+03 

270 

+4.015E-01 

+  1 

345E+03 

nnn 

+4.042E-01 

+ 1 

355E+03 

274 

+4.072E-01 

+  1 

365E+03 

276 

+  4.  100E-01 

+ 1 

375E+03 

278 

+4. 131E-01 

+  1 

385E+03 

280 

+4. 161E-01 

+  1 

395E+03 

282 

+4. 1 92E-01 

+  1 

405E+03 

234 

+4.223E-01 

+ 1 

415E+03 

286 

+4.256E-01 

+  1 

425E+03 

288 

+4.287E-01 

+ 1 

435E+03 

2  90 

+4.321E-01 

+  1 

445E+03 

n  qi 

+4.353E-01 

+ 1 

455E+03 

294 

+A.387E-01 

+  1 

465E+03 

295 

+4.420E-01 

+ 1 

475E+03 

298 

+4.455E-01 

+  1 

485E+03 

300 

+4.487E-01 

+  1 

495E+03 

302 

+4.523E-01 

+  } 

505E+03 

304 

+4.555E-01 

+ 1 

515E+03 

306 

^4.539E-01 

+  1 

525E+03 

308 

+4.S21E-01 

+ 1 

535E+03 

310 

t4.  .  655E-01 

+  1  . 

545E+03 

312 

+4.686E-01 

+ 1 

555E+03 

314 

+4.720E-01 

+  1 

565E+03 

316 

+4.751E-01 

+ 1 

575E+03 

318 

+4.786E-01 

+  1  . 

585E+03 

320 

+4.816E-01 

+ 1 

595E+03 

71T 

+4.350E-01 

+  1 

605E+03 

324 

+4.830E-01 

+ 1 

615E+03 

j25 

+4.913E-01 

+  1  . 

625E+03 

328 

+4.944E-01 

+  1  . 

635E+03 

330 

+4.977E-01 

+  1 

G45E+03 

332 

+5.009E-01 

+  1 

555E+03 

334 

+5.043E-01 

+  1  . 

565E+03 

336 

+5.075E-01 

+  1 

675E+03 

338 

+5. 1 1 1E-01 

+  1 

535E+03 

340 

+5. 145E-01 

.  +1 

695E+03 

Figure  65.     Creep  Data  Table  (Continued) 
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FILENAME  IS 
INTERVAL 

TE3T240 

AUG  STRAIN 

STRAIN  RATE 

~>  —   12 

+2.328E-02 

+6.368E-04 

*  7  —    *?  *? 

+5 

124E-02 

+  4 

814E-04 

+  7 

372E-02 

+  4 

176E-04 

32-   42 

+  9 

324E-02 

+  3 

631E-04 

42-   52 

+  1 

104E-01 

+3 

216E-04 

52-   E2 

+  1 

257E-01 

+  2 

935E-04 

62-   72 

+  1 

402E-01 

+  2 

357E-04 

-71  —           Q~> 

+  1 

544E-01 

+2 

793E-04 

32-   92 

+  1 

682E-01 

+  2 

729E-04 

92-  102 

+  1 

818E-01 

+2 

716E-04 

102-  1 12 

+  1 

954E-01 

+2 

745E-04 

112-  122 

+  2 

091E-01 

+  2 

730E-04 

122-  132 

+  2 

227E-01 

+  2 

686E-04 

132-  142 

+  2 

361E-01 

+2 

706E-04 

142-  152 

+2 

494E-01 

+  2 

575E-04 

152-  162 

+  2 

521E-01 

+  2 

514E-04 

162-  172 

+  2 

743E-01 

+  2 

379E-04 

172-  182 

+  2 

862E-01 

+  2 

390E-04 

132-  192 

+  2 

9S1E-01 

+  2 

349E-04 

192-  202 

+  3 

099E-01 

+  2 

394E-04 

202-  212 

+  3 

218E-01 

+  2 

336E-04 

"*  i  n  _  n  n  -> 

+3 

335E-01 

+2 

368E-04 

*->  n  n          T71 

i-  l-L.             . <_ 

+  3 

452E-01 

+  2 

277E-04 

232-  242 

+  3 

571E-01 

+  2 

483E-04 

242-  252 

-J.  ~i\ 

701E-01 

+  2 

731E-04 

•.Ji.    _  a  ~- 

+  3 

938E-01 

+2 

735E-04 

+3 

974E-01 

+  2 

722E-04 

272-  282 

+4 

1 17E-01 

+  3 

004E-04 

282-  292 

-4 

273E-01 

+  3 

213E-04 

292-  302 

+  4 

438E-01 

+  3 

399E-04 

302-  312 

r4 

605E-01 

+  3 

260E-04 

312-  322 

+  4 

763E-01 

+  3 

273E-04 

322-  332 

+  4 

929E-01 

+  3 

176E-04 

332-  342 

+  5 

095E-01 

+  3 

460E-04 

342-  352 

+  5 

278E-01 

+  3 

357E-04 

352-  362 

+  5 

480E-01 

+4 

196E-04 

362-  372 

+5 

695E-01 

+  4 

424E-04 

372-  382 

+  5 

923E-01 

+  4 

877E-04 

332-  392 

+6 

.  178E-01 

+5 

140E-04 

392-  402 

+  6 

465E-01 

+  5 

323E-04 

402-  412 

+6 

832E-01 

+  3 

361E-04 

412-  422 

+  9 

756E-01 

+  1 

085E-02 

422-  432 

+  1 

247E+00 

+  1 

149E-06 

Figure  66.    Creep  Rate  Data  Table 
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APPENDIX  G.    COMPUTER  PROGRAMS  FOR  CREEP  DATA 


100  READ 

A,    N,    XI.   LI 

110  FOR  ] 

=  1  TO  N 

120  READ 

X,   Y 

ISO  S  =  Y/A 

140  C  =  C10*Ll)/CXi: 

1 

150  E  =  (X»C)/5 

160  31  = 

S"C1+E) 

170  El  = 

LOGC1+E) 

180  PRINT 

"  TAB(0):X  i 

TAB(08);Y  ;TAB(16):S 

:TAB(32):E  ; TAB (43 ) ;S1 : TAB (57 J :E1 

190  NEXT 

I 

200  DATA 

.01642 

17   ♦   314.68 

.721 

210  DATA 

0      , 

7 

220  DATA 

5 

7.4 

230  DATA 

10 

7.35 

240  DATA 

15 

7.25 

250  DATA 

20 

7.2 

255  DATA 

44       , 

6.5 

260  DATA 

68 

5.9 

270  DATA 

92 

5.3 

280  DATA 

116 

4.8 

290  DATA 

140 

4.3 

300  DATA 

164 

3.9 

310  DATA 

188 

3.55 

320  DATA 

212 

3.3 

330  DATA 

236 

2.9 

340  DATA 

260 

2.425 

350  DATA 

284 

1.6 

360  DATA 

308 

0 

Figure  67.     Computer  Program  to  Reduce  Stress-Strain  Data  From  Load 

Time  Data 


101 


10 
15 

:a 

33 
25 
40 
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75 

80 

85 

80 

95 
20 
05 
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15 
20 
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3S 

40 
45 

50 
35 

50 

S3 
"0 
75 

B0 
85 

90 
95 

zoo 

205 
210 
2'S 
220 
225 
230 
235 
240 
245 
250 
255 
2S0 
255 
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280 
295 
290 
255 
-300 
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310 
315 


1  Program  fcr  running  tuo  creeo  nacnines 

'  Urit'.en  10-06-38  Tom  Kellogg 

'  Revised  13-06-39  LT  EARL  F.  G00DS0N  .  3R. 

i  Stored  as  DT_CREPT 

OUTPUT  709;  SI" 

01.1  0n_off<2)  ,Umt$(2  )C  101 

DIM  Strain_M5000>  ,Strain_2(  5000  I  ,Tyne_l  (5003)  ,Tyne_2( 5000 ) 

DIM  T_fl<2>  ,T_e(2  )  ,T_i<2  >.Rdg(2> 

Nr_pts-5000  i 

GCLEAR 

Variable  definitions: 

0n_off(I)  ...  State  of  unit  I  3«off,  1 -on 

Unit*  ...  Laoel  for  softkey 


(  ).  Strain_2(  )  ...  Readings  from  units  1  & 

,  Tyne_ 2(  )  ...  Tine  of  readings 

.  Start  tine  fron  systen 

.  Elaosed  tine 

.  Clock  tine 

.  Counter  for  readings 

X  dS 


Strain_ 
Tyne— 1  ( 
T_0(  )  . , 
T_e(  )  . - 

Rdg(  )  . . 
PRINT  X_tJ, 
GOTO  Main_nenu 
5et_u0:   ' 
Rag(  I  1-0 
Rdgi2  )-0 
GCLEAR 
GINIT 

INPUT  "Soecify  nax  tine  (seconds)  for  test  1 " ,Max_t ine_'. 
Lvat_cal_i --.  I  '  mcnes  per  voit 

INPUT  "Specify  LV0T  1  calibration  (default  .1  m/V )"  ,Lvct_cal_! 
3age_l -. 5 

INPUT  "Soecify  n  spec,  gage  length,  incnes .( Default- .5 )" ,Gage_l 
INPUT  'Soecify  nax  tine  ( seconos >    for  test  2"  ,Max_t ine_3 
Lvdt_cal_Z--. 1  'inches  oer  volt 

INPUT  "Soecify  LUDT  2  calibration  (default  .1  m/V )"  ,Lvat_cai_2 
Gage_2- . 5 

INPUT  "Soecify  *2  soec.  gage  length,  incnes .( Default- .5  I "  ,Gage_2 
Max_t ine-0 
IF  Max_t ine_! >Max_t ine  AN0  Max_t  ine_l  >Max_t  me_Z  THEN 

Max_*.  ;ne-Max_t  ine_l 
ELSE 

Max_t ine-Max_tine_2 
EN0  IF 

M in_s tra in-0 

INPUT  "Soecify  nm  7.  strain  desirea  (  Def  aul  t-0  )"  ,Min_strsin 
INPUT  "Soecify  max  7.    strain  aesirea"  ,Max_strain 
R_s  train-Max  _strain-P1in_5train 
GRAPHICS  ON 
VIEWPORT  3,100,10  ,100 

UIND0U  -Max_t ine* .2 ,Max_t ine ,M in_s t ra i n- . 1 »R_s train  ,Max_s train* . 1 'Restrain 
CLIP  0.Max_tine,Min_strain,Max_strain 
AXES  Max_t ine/  10 ,R_s train/ 10 ,0 ,Min_s train 

:lip  OFF 

LORG  5 

CSIZE  3 

IF  Max_t  ine<--l000  THEN  3teo_tme-'0 

IF  Max_t ine> 1000  THEN  3teo_t ine-5 

FOR  1-0  TO  Max_ti.ie  5TEP  Max_:  :ne/ 5 1  eo_:  me 

MOVE  I  ,Min_strain-.35»R_strain 

LABEL  USING  "K";i 
NEXT  I 

MOVE  Max_t  ine/  2  ,Mm_s  train-  . 1 »R_s  train 
LABEL  USING  "K'i"Tine,  seconos" 
1  ORG  a 


Figure  68.     Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves 
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3:s 

FOR  I-Mn_strain  TO  Max_strain  STEP  R_5train/I0 

320 

10VE  -.31 »h"ax_t;«ie,I 

335 

LABEl  USING  "K"  1 1 

343 

NEXT  I 

3*5 

MOUE  -.39«fl3x_t  me  .R_strain/2+riin_s train 

353 

LORG  5 

355 

OEG 

363 

LOIR  93 

365 

IF  Strain_type-2  THEN  LABEL  USING  "K't"*  Strain" 

373 

IF  Strain_-.yce-l  THEN  LABEL  USING  "K"  i'%    True  Strain" 

375 

LDIR  3 

330 

LORG  5 

385 

PRINTER  IS  1 

390 

FOR  I-l  TO  2 

395 

On_of  f!  I  )-3 

430 

UnitSI  I  H"S*&UALS<  I  >&"is  OFF" 

405 

T_-(I )-l .E-99 

410 

NEXT  I 

415 

Tyme_int_l-<r!ax_time_1  /4999)  'Sets  up  tine 

420 

Tyme_int_2"(Max_t ine_2/4999 )  ! intervals 

425 

flain_flenu.*   ' 

430 

GOTO  Keys_seiuo 

435 

rtai  n_nenu_l  '•        ' 

443 

60SUB  Time_interval 

445 

Main_nenu_iale:   GOTO  Main_nenu_1 

450 

Keys_setuc : ' 

455 

OFF  KEY 

463 

ON  KEY  3  LABEL  UnitSU  )  GOTO  Uni  t_I_on_of  f 

465 

ON  KEY  1  LABEL  "Print  1'  GOTO  PrintJ 

470 

ON  KEY  2  LABEL  "Plot!"  GOTO  Dis_plot_l 

475 

ON  KEY  2  LABEL  "Sto/Rocl"  GOTO  Sto_rec_l 

480 

ON  KEY  4  LABEL  "Neu  Test"  GOTO  Set_up 

485 

ON  KEY  5  LABEL  UnitS(2)  GOTO  Uni t_2_on_of f 

493 

ON  KEY  8  LABEL  "Print  2"  GOTO  Print_2 

495 

ON  KEY  7  LABEL  -P!ot2"  GOTO  Ois_plot_2 

530 

ON  KEY  8  LABEL  -Sto/Rec2-  GOTO  Sto_rec_2 

535 

ON  KEY  9  LABEL  -QUIT"  GOTO  Quitter 

5!3 

Key_setuo_' :   ' 

515 

GOTO  Nain_t«nu_l 

523 

Uni t_l_on_of ' :   'Select  unit  1  for  cnange 

525 

I-l 

533 

GOTO  Unit s_on_of f 

535 

Uni t_2_on_3f f :   'Select  unit  2  for  change 

540 

1  =  2 

545 

Uni ts_on_of f :■ Turn  unit(I)  on/off 

553 

IF  On_or*  f(  I  )»3  THEN 

5=5 

On_of  f  (  I  )»! 

555 

i    T_3(  I  )-t;,1EDATE 

565 

i 

570 

| 

575 

1  NOTE:  IB  volts  ■  1  inch  novenent 

580 

I 

585 

i 

5=0 

IF  I-l  THEN 

595 

PRINT  "Set  LVOT  unit  one  to  3  ana  press  return' 

533 

BEEP  203.. 1 

605 

INPUT  Uhichl 

613 

OUTPUT  739;"VR5AI1" 

6:  1 

T_3(I  l-TIMEDATE 

515 

ENTER  709iLvdtl 

623 

ELSE 

625 

FRINT  'Set  L'JOT  unit  tuo  to  3  and  press  return" 

623 

9EEB  230,.  I 

635 

INPUT  UhicnS 

640 

OUTPUT  ~39:"VRSAI2" 

641 

T  3(  I  )-TIMEDATE 

Figure  68.    Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves  (Continued) 
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645 

ENTER  ~39;lvc*.2 

6=0 

ENO  IF 

5  =  5 

'JmtJ' .  I  '-*S"&UnLS<  i  )l"is  ON" 

553 

zL^.c. 

555 

On_off<  I  ■"■2 

S70 

UnitS(I)»"*"&UALS(I>i"ia  OFF" 

S75 

ENO  IF 

680 

30T0  Keys_setuo 

555 

Print_l :   'Print  data  fron  unit  1 

590 

I*1 

695 

GOTO  Prmt_cata 

700 

Prmt_2:   'Print  data  fron  unit  2 

70S 

1-2 

710 

Print_data:   'Hardcooy  of  data  joints 

715 

PRINTER  IS  736 

710 

PRINT 

7:5 

PRINT 

720 

PRINT  "Unit  :  "ill"   "iTIMEOATE 

735 

PRINT  "      I      Strain,  %      Tine,  nmutes       I      Strain,  7. 

Tl 

ne  . 

ninutes " 

740 

FOR  J-l  TO  Nr_pts-1  STEP  2 

745 

PRINT  USING  Frit  1  ;JiStrainl  I  ,J  hTynel  I ,J >| J+t ;Strain( I , J+1  MTyne*  I.J+I 

) 

750 

NEXT  J 

755 

Fntl:   IMAGE  2< SO  .SX  ,D.OOOES2Z ,SX .0.D0DES2Z  ,7X  ) 

763 

GOTO  Keys_setup 

765 

Oi s_plot_' :   ' 

770 

I-l 

775 

0is_plot_3:   ' 

7S0 

G03UB  Uhien_plotP 

785 

G0SU8  Plot_on 

790 

GOTO  Main_-enu 

795 

0is_olot_2:   ' 

300 

1-2 

905 

GOTO  Di3_piot_3 

310 

Uhicn^ piot r:   ' 

815 

FOR  0-0  "0  4 

3:0 

ON  KEY  0  un8El  "CRT"  GOTO  Plotr_crt 

825 

ON  KEY  Qr5  lABEl  •Plotter"  GOTO  Plotr_plotr 

830 

NEXT  0 

835 

Uh_plotr_spin:   GOTO  Uh_plotr_som 

640 

Plotr_crt:   ' 

845 

IF  I-l  THEN  PlotP_lS-"CHT" 

850 

IF  1-2  THEN  ?lotr_2S-'CRT" 

855 

RETURN 

363 

Plotr_piotr:   ' 

865 

IF  I-l  THEN  Plotr_I5-"Plotter" 

370 

IF  1-2  THE'J  ?lotr_:s--Plotter" 

875 

RETURN 

880 

Plot_on:    1 

885 

'Jhicn_strain:   ' 

893 

INPUT  "l-True  strain  or  2-engineer ing  strain?"  ,Stram_type 

395 

IF  Strain_:yDe\  1  OR  Strain_type>2  THEN  Uhicn_stram 

900 

Hin_strain-3 

90S 

INPUT  "Specify  nininun  strain  desired  '  Oef  aui  t-0  )"  ,f1in_strain 

313 

INPUT  "Specify  naxinun  strain  desired"  ,flax_strain 

915 

Min_t ine-0 

920 

INPUT  "Specify  nininun  tine  desired  (  Qef  aul  t*0  )"  ,,1in_t  ine 

925 

INPUT  "Specify  naxinun  tine  desired"  .Max_' me 

930 

PRINT  "Strain  axis  : "  !f11n_straini  "-"  !f1ax_strain 

535 

PPINT  "Tme  axis  :  "  iMln_t  inei  "-"  ;rtax_t  ine 

940 

PRINT  "I-  this  OK?* 

945 

GOSUB  'es_io 

953 

IF  AnsuerS»-N"  THEN  Plot_on 

9S5 

GCLEAR 

950 

GRAPHICS  ON 

qcs 

60.SIIR  Uhirh  nlnir 

Figure  68.     Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves  (Continued) 


104 


970 

IF  iPlotr_!S«'CRT"  ^NC  1-1  )  OR  (Flotr_2S- 'CRT"  ANO  I"Z)  THEN 

975 

ALPHA  OFF 

980 

PLOTTER  IS  3, "INTERNAL" 

3=5 

ELSE 

990 

PLOTTER  IS  705,"HPr,L" 

595 

END  IF 

1000 

IF  !Ploir_lS«"CRT"  AND  1-1/  OR  < F lotr_2J-"CRT"  ANO  1-2)  THEN 

1005 

VIEWPORT  0,125,20,90 

1010 

ELSE 

1015 

VIEWPORT  0,125,12  ,95 

1020 

END  IF 

1025 

R_t ine"Max_t ine-Min_tine 

1030 

R_s train"Max_strain-Min_3 train 

1035 

WINOOU  Min_t  ine- .  1  «R_t ine  ,Hax_t  ine  ,Min_3train».  1  »R_! train  ,Ma\_5train 

1010 

CLIP  Min_t  me  ,Max_t  ine  ,Min_5 train  ,Max_stram 

1045 

AXES  R_time/10 ,R_5 train/ 1 0 ,Min_t ine  ,Min_s train 

1050 

CLIP  OFF 

1055 

CSIZE  3 

1050 

IF  Max_tine<-I000  THEN  5tep_tine-10 

10S5 

IF  Max_t ine/ 1000  THEN  Step_tine-5 

1070 

LORG  5 

1075 

FOR  J»Min_tine  TO  Max_tine  STEP  R_t me/Step_t in« 

1060 

MOVE  J  ,.1in_5train-.3l5«P_strain 

1085 

LABEL  USING  "K" ;J 

1090 

NEXT  J 

1095 

MOVE  Ml.n_tine+.5»R_t  ine  ,rtin_s train-  .  09 'Rostra in 

1  100 

LABEL  USIN6  "KTTine,  seconas" 

1  105 

LORG  3 

1110 

DE5 

1115 

FOR  J-Min_strain  TO  Max_strain  STEP  R_strain/10 

l  120 

MOVE  Min_:ine-.03'P_t ine ,J 

1  125 

LABEL  USING  "K" i J 

1  130 

NEXT  J 

1  135 

LDIR  90 

1  140 

LORG  5 

1  145 

MOVE  Min_tine-.09»P_t ine  ,Pli  n_a  train*.  S»R_a  train 

1  150 

IF  Strain_type-2  THEN 

1  155 

LABEL  USING  "K"  ;  "7.  Strain" 

1  150 

ELSE 

1  IE5 

LABEL  USING  "K"i"True  Strain" 

1  170 

END  IF 

1  175 

LDIR  0 

1  1E0 

Iplot-0 

1  185 

OFF  KEY 

1  190 

CLIP  Mm_:  me  ,Max_t ine  ,Min_s  train  ,Max_5train 

1  195 

FOR  J-l  TO  5000 

1230 

IF  JOI  THEN  01_tyne-Tyne_< 

1235 

Strayn-3 

1210 

Tyne_<»0 

1215 

IF  1-1  THEN 

1220 

Strayn-Strain_l ( J  ) 

1  225 

Tyne_<*Tyne_!  (  J  ) 

1233 

ELSE 

1235 

S trayn»5train_2( J  ) 

1240 

Tyne_<*Tyne_2( J ) 

1245 

END  IF 

1250 

ON  ERROR  GOTO  1250 

1  255 

IF  Strain_t /pe-l  THEN  Strayn«LOG(  1  +'  Strayn/  1  30  )  ) 

1250 

OFF  ERROR" 

1255 

IF  Tyne_.<<Min_t  ine  THEN  ?lot_ne.xt 

1270 

IF  Tyne_x>Kax_iine  THEN 

1275 

J-9330 

1230 

GOTO  Plot_next 

1285 

ENO  IF 

1290 

Ipiot»!;lot+l 

1295 

IF  Iolot-1  THEN  MOVE  Tvne  x.Stravn 

Figure  68.    Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves  (Continued) 
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1300 

IF  IolotOl  AND  <Tyme_*-0  ANO  Strayn»0>  CR  Ql_-.yne.'T,ne_<  THEN  Plc:_next 

1305 

IF  JOI  ANO  Strayn-0  ANO  Tyme_x-0  THEN  Plot_ne*t 

1313 

QRAU  Typie_-  ,  £  trayn 

131  = 

Piot_ne'<t  :  MEaT  J 

i3:o 

IF  PlotrJS-'CRT"  OR  ? lotr_2 J- "CRT"  THEN 

1325 

PENUP 

1330 

ELSE 

1335 

FEN  3 

1340 

END  IF 

1345 

RETURN 

1350 

Yes_no:  ' 

1355 

FOR  0»0  TO  4 

1360 

ON  KEY  0  LABEL  "Ves-  GOTO  Yeas 

1365 

ON  KEY  0+5  LABEL  "No"  GOTO  Noo 

1370 

NEXT  Q 

1375 

Yes_no_idle:  GOTO  /es_no_idle 

1380 

Yess:  ! 

1385 

Ansueri-"  Y" 

1390 

GOTO  Yes_no_ret 

1395 

Noo:  ' 

1  400 

AnsuerS-'N" 

1405 

Yes_no_ret:  ' 

1410 

OFF  KEY 

1415 

RETURN 

1420 

Sto_rec_! : ' 

1425 

I-l 

1430 

GOTO  Store_"ecali 

1435 

Sto_rec_2 : ' 

1440 

I»2 

1445 

GOTO  Store_~ecall 

1450 

Store_recai  I :  i 

1455 

OFF  KEY 

1460 

FOR  0-0  TO  4 

1465 

ON  KEY  0  LABEL  •SaveData"  SOTO  Stor-_l 

1470 

ON  KEY  QrS  LABEL  "Rec.Data"  GOTO  Recall_! 

1475 

NEXT  0 

1480 

Store_recai l_l :  GOTO  Store_recall_l 

1485 

Store_l :  '  Stores  aata 

1450 

INPUT  "File  name  for  aata  storage'  ,F_naneS 

1495 

GOSUB  Uhich_a:sR 

1500 

ON  ERROR  GOTO  Store_error 

1505 

Store_2:  ' 

1510 

CREATE  90AT  F_naneS& '•_<".  1  ,40000 

1515 

CREATE  -OAT  -_namei&"_Y'  , 1  ,43000 

1520 

CREATE  BOAT  -_nameS&"_:"  ,  1  ,4000 

1525 

5tore_2_y:  I 

1530 

OFF  ERROR 

1535 

Err_eof ■ 1 

1540 

ON  ERROR  GOTO  Eof_error 

1545 

ASSIGN  @File_*  TO  F_naneSi-_X " 

1553 

IF  I«l  THEN  OUTPUT  9File_x»Tyne_t < * ) 

1555 

IF  1-2  THEN  OUTPUT  9Fi le_x i Tyme_2< •  ) 

1560 

Err_eof_1:  i 

1565 

ASSIGN  JFiie_-  TO  • 

1570 

Err_eof-2 

1575 

ASSIGN  9Flle_y  TO  F_namei& "_Y " 

1530 

IF  I-l  THEN  OUTPUT  3Fi  le_y •,  Strain_1  (  •  > 

1535 

IF  1-2  THEN  OUTPUT  9File_y iStra*n_2( * ) 

1590 

Err_eof_2:  ' 

1595 

ASSIGN  9File_y  TO  • 

1600 

Err_eof-3 

1605 

ASSIGN  §F:le_:  TO  -_naneSi "_2 " 

1610 

OUTPUT  if:  it_z;  I  ,7_0<  ♦  )  ,T_ei  • ) ,T_i( • > ,Rdg( • >  ,Hax_:  me_1  ,Ma<_:  i 

~<e_2 

1515 

Err_eor'_3:  1 

1620 

ASSIGN  9File_2  TO  • 

1625 

OF?  ERROR 

Figure  68.     Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves  (Continued) 
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1633 

GOTO  Main_menu 

1525 

Eof_error:  i 

IS4.0 

OFF  ERROR 

1645 

ON  ERROR  3070  Eof_»rror 

1553 

IF  Err_eof-i  THEN  Err_eof_l 

1655 

IF  Err_eof-2  THEN  Err_eof_2 

1660 

IF  Err_eo'-3  THEN  Err_eof_3 

1665 

GOTO  Main_menu 

I5T3 

Uhicn_disk  :  ' 

1575 

OFF  KEY 

1680 

FOR  0-0  TO  9 

1635 

ON  KEY  0  LABEL  ""  GOTO  Uhich_disk_so in 

1590 

NEXT  0 

1595 

ON  KEY  3  LABEL  ■32931 -0-  GOTO  Onve_0 

1700 

ON  KEY  2  LABEL  -82901-1"  GOTO  Onve_l 

1705 

ON  KEY  9  LABEL  "INTERNAL"  GOTO  Onve_i 

1710 

Which_dis»_spin:  GOTO  Which_disk_spin 

1715 

Onve_3:  • 

17;0 

MASS  ST0PA6E  IS  " :HP9290I ,700" 

1725 

RETURN 

1730 

0nve_l:  I 

1735 

MASS  STORAGE  IS  " :HP92931  ,700  , 1" 

1740 

RETURN 

1745 

On  ve_i :  ' 

1753 

MASS  STORAGE  IS  " : INTERNAL" 

1755 

RETURN 

1750 

S t ore_er-or : i 

1765 

IF  ERRN-54  THEN 

1773 

PRINT  'Ouoiicate  file  name.  Shall  I  overwrite'" 

1775 

50SUB  'ts.no 

1780 

OFF  ERFOR 

1735 

IF  Ansu,er$-"Y"  THEN  Store_2_y 

1793 

END  IF 

1795 

IF  ERRN-54  THEN 

1800 

PRINT  'OisK  is  full.  Change  disk  or  mass  storage  unit." 

1835 

BEEP  233.. 5 

1813 

OFF  ERROR 

1815 

SOTO  Store_l 

1823 

END  IF 

1825 

IF  ERRN-83  THEN 

1833 

PRINT   Shut  the  bloomin1  disk  drive.  It's  cold  out  "here1" 

1835 

OFF  ERPOR 

1843 

GOTO  Store_l 

1S4S 

ENO  IF 

1S53 

IF  ERRN-85  THEN 

1  555 

INITIALIZE  " :"1MsusS 

1863 

OFF  ERROR 

1855 

60T0  5tore_2 

1873 

END  IF 

1875 

IF  ERRN-53  THEN 

1883 

PRINT  "Mass  storage  system  error.  Select  another  disk  drive." 

1895 

OFF  ERROR 

1890 

GOTO  Store_l 

1895 

ENO  IF 

1903 

PRINT  "Error:  "sERRN 

1905 

OFF  ERROR 

1910 

GOTO  Main_nenu 

1915 

Recail_':  i 

1923 

INPUT  "File  name  to  be  recalled  (omit  suf f  i<es  )"  ,F_nameS 

l  525 

PRINT  "Uhich  disk  drive1" 

1933 

SOSUB  Uh:cn_disk 

1935 

ASSIGN  3File_i  TO  F_nameS&"_X" 

1  540 

CN  EFRCR  GOTO  1555 

1945 

IF  I-l  TucN  £NTER  9File_xiTyme_t<  •  ) 

1553 

IF  1-2  THEN  ENTER  9Fi le_« i Tyme_2( •  ) 

1555 

ASSIGN  ?File  x  TO  • 

Figure  68.    Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 
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1=53 

SrF  ERROR 

19S5 

ON  ERROR  GOTO  1885 

1970 

ASSIGN  »F:le_y  TO  F_nan-i&-_'- 

19-5 

IF  1-1  THEM  ENTER  sFi  le_y  :  StVamJ  (  •  ) 

19S3 

IF  1-2  THEN  ENTER  3Fi le_y i 5train_2( • ) 

1985 

ftSSISN  ?F:le_y  TO  • 

1990 

OFF  ERROR 

1995 

ON  ERROR  SOTO  2010 

2B00 

ASSIGN  9F:le_;  TO  F_naneS&-_: " 

:aos 

ENTER  9File_siI,T_3(»),T_e(»),T_i(*>,Rdg(*),Hax  tine  1  .flax  tine  2 

2010 

AS3I5N  9File_:  TO  . 

2015 

OFF  ERROR 

2016 

Factor-l 

2018 

INPUT  "Soecify  multiplication  factor  for  data.  Def-1 '  .Factor 

2019 

IF  Factor- 1  THEN 

2020 

S0SU8  Plot_on 

2021 

ELSE 

2022 

FOP  i»1  TO  5300 

2023 

IF  I-l  THEN  Strain_KJ  >-5train_KJ  >»Factor 

2024 

IF  1-2  THEN  5train_2<  J  >-Strain_2U  >»Factor 

2025 

NEXT  J 

2327 

GOSUB  ?lo:_on 

2028 

ENO  IF 

2030 

Quitter:  ' 

2031 

SEEP  2300,. 1 

2335 

FOR  Q-0  TO  4 

2040 

ON  KEY  0  LABEL  •QUIT"  SOTO  Ouitter_l 

2045 

ON  KEY  G+S  LA6El  "Continue"  GOTO  Keys  setuo 

2050 

NEXT  0 

2055 

Quit ter_iaie:  SOTO  Quitter_idle 

20E0 

Ouitter_l :  STOP 

23S5 

Ti.ie_interval:  ' 

2073 

IF  On_or"fC  >-3  THEN  Time_int_l 

2075 

T_e( 1 )-TlrEDAT£-T_3< 1 ) 

2380 

IF  T_s( 1  >>«Rdg<  1  )»Tyne_int_l  THEN  SOSUB  Reao_l 

2085 

Tme_int_l  :  ' 

2090 

IF  On_off(2)-0  THEN  RETURN 

2095 

T_e(2  >-Tlr£jrtTE-7_3<2  ) 

2100 

IF  T_ei 2  )  "Rdgi 2 >«Tyne_int_2  THEN  GOSUB  Read_2 

2105 

RETURN 

21  10 

Read_l :  ! 

2115 

Rdg(  1  )»Rdgi  1  1+1 

2123 

IF  Rdgi 1  )>5300  THEN 

2125 

Sdg( 1  >-5300 

2130 

RETURN 

2135 

ENO  IF 

2M0 

IF  Rdgi  1  !»l  THEN 

2  U5 

30SU3  Oisolay_l_on 

2150 

ENO  IF 

2155 

IF  T_e<1  )>n~ax_time_l  THEN 

2150 

On_3f  f  (  1  1-0 

2iSS 

ON  KEY  3  lABEl  "*l  DONE-  GOTO  Uni t_l_on_of f 

2170 

ENO  IF 

2175 

OUTPUT  733i"UR5AIl " 

2150 

ENTER  705:3train_MPdg(  1  )  ) 

2155 

Strain_l '  Rdg(  1  )  >"1  O0»Lvdt_cai_l  •<  Stram_M  Rdg(  1  )  i-Lvdt  1  )/Gage_l 

2190 

Tyne_l  »Rcgl  1  I  >-T_.<  1  ) 

2155 

LORS  S 

22C0 

CSIZE  2 

2235 

IF  Strair_type-2  THEN 

2213 

HOVE  Tyne_1  (Rdgi  1  ) )  .Strain  HRogll)) 

2215 

ELSE 

2223 

IN  ERROR  SOTO  2230 

2225 

MOUE  Tyne_1  (Rogi  1  ))  ,LOS<  Strain_l  (RdgU  )  )*\   > 

2233 

OFF  ERROR" 

2235 

FnO  IF 

Figure  68.    Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 
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22,40    LriEL  USING  "K"«"l" 

2245  RETURN 

::55  ^ag1 :  )-PdQi:  ,  +  i 

22  =  3  IF    Ragi2  J/E0C8    THEN 
2265  Sdgi 2 >-3i30 

::?'3   ret,jpn 

2275  eno  if 

2233  IF  Rdgl2;-i  THEN 
:235    GOSuB  Qisglay_2_on 

::=a  eno  if 

2235  IF  T_e<  2  )>Max_t  me_2  THEN 
2330    0rToff(2;«a 

2305    ON  KEY  5  LABEL  -s;  DONE"  GOTO  Urut_2_on_off 

2310  END  IF 

231  S    OUTPUT  70SVUR5AI2" 

2323    ENTER  709; Strain_2< Rdg( 2 !  ) 

2325    Str3in_2(Rag(2 ) )-l 00«Lvdt_cal_2»i Strain_2( Rdg( 2  )  )-Lvdt2  )/Gage_2 

2330     Tyne_2(Rag(2  )  )-T_e(2  ) 

2335    LORG  5 

2240    C3IZE  2 

23iS    IF  5tram_type-2  THEN 

2350    MOUE  Tyme_2(Rdg(2  )  )  ,Strain_2< Rdg( 2  )  > 

2355    ELSE 

2353  ON   ERROR   GOTO    2270 

2255  MOUE    Tyme_2(fidg< 2 )  )  ,LOG< Strain_2( Rdgi 2  )  >+l  ) 

2370  OFF   ERRCR~ 

2375  ENO    IF 

2360    LASEL  USING  "K" ;"2" 

2255  RETURN 

2290  Jisplay_'_on:  ' 

2395  Oisp_i«i 

2100  5EEF  2003,. 1 

2405  RETURN 

2413  Disclay_2_3n:  ' 

2415  Oiso_2-I 

2423  RETURN 

2125  ENO 


Figure  68.    Computer  Program  to  Acquire  Creep  Data  and  Plot  Creep 

Curves  (Continued) 


109 


10  i  PR06RAM  TO  COMPUTE  STRAIN  RATES  GIVEN  THE  OATA  DISC  FROM  A  TEMPERATURE  C 

YCLING  TEST. 

30  '  IT  IS  USER  FRIENDLY  ANO  MENU-DRIVEN. 

40  'WRITTEN  10-19-99  BY  LT  EARL  F.  GOOOSON.SR. 

50  'EDITED   10-21-89  3Y  LT  EARL  F.  GOOOSON.SR. 

SO  DIM  Strain_l  (5000 ) ,Tyne_l (5000) ,True_s train! 5000  )  ,Str_rate(  1000) ,A_str<  103 

01 

71  OIM  Log_rate(2000> 

30  Nr_pnts-5300 

31  PRINTER  IS  I 
90  I-i 

100  PRINT  "PROGRAM  TO  CALC  STRAIN  RATES  GIVEN  THE  DATA  OISC  FROM  A  TEMPERATURE 
CYCLING  TEST.  ' 

110  PRINT  "  HIT  CONTINUE  TO  BEGIN" 

I  I  I  PAUSE 

I \Z  GOTO  Keyj_setup 

1 14  Disc:   ' 

115  OFF  ERROR 

120  PRINT  "PLACE  DATA  OISC  IN  THE  INTERNAL  DRIVE." 

130  INPUT  "FILENAME  TO  BE  RECALLED! OMIT  SUFFIXES >" ,F_nanaS 

131  ON  ERROR  GOTO  Disc 

U0  MASS  STORAGE  IS  ":  INTERNAL"  '  RECOVERS  TIME 

ISO  '                             OATA  ARRAY 

ISO  > 

170  ASSIGN  3File_<  TO  F_name3&"_X" 

180  ON  ERROR  GOTO  200 

190  ENTER  @F:la_»iTy«ie_l  <  •  > 

230  ASSIGN  3File_x  TO  • 

213  OFF  ERROR 

223  ON  ERROR  GOTO  273 

233  ASSIGN  9File_y  TO  F_nafneS&"_Y"  '  RECOVERS  ENG 

240  '                            STRAIN  DATA  ARRAY 

250  ! 

2S0  ENTER  SFi le_y ; Strain_1 ( • ) 

270  ASSIGN  9F:le_y  TO  • 

2S0  OFF  ERROR 

351  SOTO  See_all 

3S0  ' 

370  'ASSIGNS  TRUE  STRAIN  UALUES  AN  ARRAY  NUM. 

3S0  i 

381  See_ali:   ' 

383  3-0 

384  PRINT  "PLEASE  UAIT  UNTIL  THIS  MESSAGE  DISAPPEARS.   THE  TRUE  STRAIN  ARRAY  I 
S  BEING  FILLED" 

390  FOR  J-l  TO  4999  STEP  1  '  FILLS  TRUE  STRAIN  ARRAY 

391  0-0+1 

400  True_strain(0)-LOG(  1 +( S train_l ( J  )/ 1 00  )  I 

401  IF  True_strain(O)-0  THEN  GOTO  4Z1 
410  NEXT  J 

421  OUTPUT  2  I  "K"  ; 

422  GOTO  Keys_setuD 
433 
440 
453 
163 
470 

483  Keys_setuo:   ' 

48  1  OUTPUT  2;"K";  I   CLEAR  SCREEN  CMO 

493  OFF  KEY 

530  ON  KEY  3  LABEL  "PRN  E,T*  SOTO  Print_1 

510  ON  KEY  I  LA6EL  "PL/PR  ER"  GOTO  Strain_rate_l 

520  'ON  KEY  2  LABEL  "CALC  OIF"  GOTO  OIFF_COMP 

S"3  ON  KEY  1    ;.ARFL  "OSIIBC"  GOTO  Art  »n»r 


SOFT  KEY  SET-UP  FOR  MAIN  MENU 
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PPINTS  TRUE  STRAINS  AND  TIMES 


5-10    ON  KEY  1    LrBEi.  "QUIT"  SOTO  Quitter 

541  ON  KEY  5  LrSEL  "NEUTEST"  GOTO  Disc 
550  Key_:ale:    GOTO  Key_idle 
553 

573    i  SUBPROCEDURE  TO  PRINT  ALL  STRAINS  AND  TIME 
530    '  ON  THE  PPINTER 
530 
300 

613  Pnnt_1  :   ' 
520   'PRINT  "PRINTJ  ENTERED-' 

Strt 1-2 

StDl-4S99 

Intvl-2 

INPUT  "INPUT  ROG  TO  START  AT, (DEFAULT  -  1ST  RDG)",Strtl 

INPUT  "ROG  TO  STOP  ON, (DEFAULT  -  4999)", Stpl 

INPUT  -INPUT  INTERVAL  TO  CALC  TRUE  STRAINS  ,( DEF-2  RD6S)',Intvl 

PRINTER  IS  70S 

PRINT  "FILENAME  IS  ";F_naneS 

PRINT  "   ROG  I    TRUESTRAIN      TIME. SEC  RDG  *    TRUESTRAIN 

TIME. SEC" 

S39   FCR  J-Strtl  TO  Stpl  STEP  Intvl»2 

640      PRINT  USING  Frnt  I  i  J  ;True_strain(  J  )iTyne_l  (  J  );  J  +  Intvl  ;True_strain<  J  +  Intvl  ) 
lTyme_l< J+Intvl ) 
54  1      ON  ERROR  GOTO  544 

542  NEXT  J 

643  Fntl:    IMAGE  2( 5D  ,5X .SD.DDDESZZ ,5X ,SD .DDDE5ZZ  ,7X  ) 
544    PRINTER  IS  I 

OFF  ERROR 

GOTO    Keys_setLio 


526 


531 
632 
533 
634 
635 
637 


SUBPROCEDU=E  T0  PRINT  AN  INTERVAL  OF  ALL 
STRAIN  RATE3  AND  STRAINS  WITH  PLOTTING 


545 
546 
647 
653 
663 
573 
630 
690 
700  3tram_rate_' :   ' 

731  PRINTER  IS  1 

732  Interv-10 
Strt-2 
3tp-l900 
Ar.s_l S"  N" 
Prt«l 
Ansi-"Y- 
Tr-0 

INPUT  "INPUT  INTERVAL  BETWEEN  STRAIN  RATES  ,( OEF- I  0  RDSS  )"  .Interv 
I-int erv 

INPUT  "INPUT  VALUE  TO  STAPT  AT ,(  DEFAULT- 1  ST  RDG i", Strt 
INPUT  -INPUT  VALUE  TO  STOP  AT ,( DEFAULT- 1  900  PDG>",Sto 
INPUT  "CO  YOU  UANT  A  HARD  COPY  OF  0ATA7  ,( DEFAULT-NO  )" ,Ans_l $ 
IF  Ans_!S-"Y"  THEN 

INPUT  'HIT  ENTER  FOR  CRT  OR  2  FOR  EXT  PRINTER  ,< DEF-CRT )"  ,Prt 
END  IF 
PRINT  "ARE  YOU  SURE  YOU  UANT  TO  START  AT  ";Strt 

NTERVAL  OF  "i  Interv 

720   Input  "Input  y/n.idefault-yes  )"  ,Anss 

IF  AnsS-"N"  THEN 
GOTO  Stratn_rate_1 

OUTPUT  2;  K" i 
ELSE 

PRINT  -PLEASE  WAIT  FOR  MENU  TO  APPEAR 


704 
705 
736 
707 
708 
739 
7  1  7 
713 
715 
723 
721 

725 
725 
729 


731 


733 
734 


STOP  AT  "iStoi"  OVER  I 


0.  " 
736 
737 
733 
740 
741 


ENO  IF 

IF  Prt- 2  THE'I  PRINTER  IS  70S 
IF  Ans_'S-"Y"  THEN 

PRINT  FILENAME  IS  -;F_nane* 
=QINT  •  INTERVAL      nVG  STRAIN 


STRAIN  RATE  ARRAY  IS  BEING  FILLE 


STRAIN  RATE" !   INTERVAL 


Figure  69.    Computer  Program  to  Reduce  Creep  Data,  Plot  Creep  Rate 
Curves  and  Print  Data  Tables  (Continued) 


1  1  1 


RAIN  STRAIN  R- 

742  END  IF 

750  FOR  ;»StPt  TO  Sto  STEP  Interv 

751  Tr— Tr-I 

760  Str_rste<Tr )-ABS(  (  (  True_3trainl  J + Interv  )-True_stram<  J ) )/<Tyne_l <  J* Inter 

v  >-Tyne_! ( J  )  )  ) ) 

75  I  i|_og_rate<Tr  >-LGT( ABS( Str_rate(  Tr  )  )  ) 

773  A_jtn  Tr  )-<  True_atrain(  J  +  Interv  )+True    strain(J>)/2 

780  ON   ERROR    GOTO    830 

300  IF  nns_1S-~Y-  THEN 

301  PRINT  USIN6  Fnt2iJi'-"iJ+IiA_str(Tr>;StP_r-ate<Tr)i  I J+I;  "-"i  J+2»I  ,A  strt  1 
♦  Tr  )iStr_rate< l+Tr > 

804  InO  IF 

810  NEXT  J 

820  Fnt2:     IMA6E  ( 4D  ,K  ,4D  ,SX  ,SD .DDDESI2  ,5X  .SO. DOOESZZ  ,3X  ) 

830  OFF  ERROR 

840  PRINTER  IS  I 

350  OFF  KEY 

851  i  OUTPUT  2  I  "K- ; 

360  ON  KEY  I  LABEL  "PLOT  ER.E"  60T0  Plot_er 

861  ON  KEY  2  LABEL  "NEWTEST"  GOTO  Oisc 

862  ON  KEY  3  LABEL  "MENU"  GOTO  Keys_setup 
963  ON  KEY  4  LABEL  -SLOPE"  GOTO  Slooer 
370  Plot_iale:  GOTO  Plot_iole 

380  GOTO  Keys_setuo 

890  i 

900  i 

910  i SU3  TO  PLOT  STRAIN  RATE  US  STRAIN 

920  Plot_»r:  ! 

921  OFF  KEY 

923  An34S-'N- 

924  Ylog-0     I  TELLS  PLOT  TO  USE  REG  Y-AXIS 

925  PRINT  "THIS  SECTION  GIUES  YOU  SEVERAL  CHOICES  OF  PLOTS.   YOU  rtAY  NEEO  IT 
ERATION  TO  GET  THE" 

S2S  PRINT  "SCALE  AND  THE  LIMITS  RIGHT.   DEFAULT  IS  A  SEMI-LOG  PLOT.   YOU  ALS 

0  CAN  PLOT  REGULAR" 

927  PRINT  "AXES.   AUTO  SCALING  REQUIRES  SOME  PATIENCE  SINCE  IT  USES  YMAX  ANO 

YMIN,  SO  TRY  AGAIN" 

923  PRINT 

932  X1S--TRUE  STRAIN, IN/IN" 
940  YU--LOG  STRAIN  RATE" 

950  TS-'TEMP  CYCLING  EXP" 

951  INPUT  ""LOT  LOG  STRAIN  RATE  WITH  REG  AXES'?  . (  OEF-NO  )"   ,AnS4S 

953  IF  Anj4S-'N"  THEN 

954  Ylog-l 

35=  YIS-'STRAIN  RATE.SEC-I  " 

955  XIS-'TRUE  STRAIN  , IN/ IN- 

953  INPUT  -PLOT  SEMI-LOG  U/Y  AS  LOG  AXIS'  ,( YES-OEF  .NO-0  )'  ,Ylog 

961  ENO  IF 

962  Ans2-1 

963  INPUT  "INPUT  TITLE  OF  PLOTt  OEF-TEMP  CYCL  EXPC.'S 
9S5  INPUT  "I  FOR  CRT  OR  2  FOR  EXT  PLOT  ,( DEF-CRT  )•  ,Ans2 
966  IF  Ans2-2  THEN 

9S7  'LOTTER  IS  705.-HP6L' 

933  ELSE 

So  9  5CLEAR 

970  ALPHA  OFF 

971  GRAPHICS  ON 

972  ENO  IF 

973  IF  Ans4$--Y"  THEN 

974  CALL  Auscl(Log_rate( I  )  .Log_rate< Tr >  ,0,Mn_r ,Mx_r .Tc_r ) 

975  ELSE 

976  CALL   Auscl(Str_rate( 1  ) ,Str_rste< Tr )  .0  ,Mn_r ,Mx_r  ,Tc_- ) 

977  ENO  IF 

930  CALL  AuscK  A_jtr(  1  )  ,A_3tr(Tr  )  .0  ,Mn_e  ,Mx_e  ,Tc_e  ) 

954  TF  Ani4S--Y"  THEN 
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3S0  CAUL  Plot(Mn_-,Mx_e,Mn_r  ,M<_r  ,Tc_e  ,Tc_r  .O.Ylag  ,XI$  ,Y1S  ,A_stri  •  )  ,Log_ra 

tei  •  )  ,Tr  ,7S  ) 

99!  ELSE 

332  CALL  Plot(Mn_»  ,Mx_e,Mn_r  ,Hx_r  ,Tc_e  ,Tc_r  ,3  ,  Ylog  .X  1  S  ,Y1  $  ,A_s  tp(  •  )  ,Str_ra 

te(  • )  ,Tp,Ts) 

953  END  IF 

395  PRINTER  IS  1 

99G  PRINT  "HIT  CONTINUE  TO  RESUME  THE  PROGRAM" 

997  PAUSE 

998  GINIT 

999  SCLSAR 

1000  GRAPHICS  OFF 

1001  ALFUA  ON 

1002  GOTO  Keys_setuo 
1010  I 

1020  i  SUB  TO  PRINT  DESIGNATED  STRAIN  RATES 

1030  i 

1040  Act_ener:    ' 

10S3  PRINT  "ACT_£NEa  ENTERED" 

1051  Ans7S«"Y" 

1052  INPUT  "INPUT  TEMP  l",TI 

1053  INPUT  "INPUT  STRAIN  RATE  I", SI 
1051  INPUT  "INPUT  TEMP  2" ,T2 

1055  INPUT  "INPUT  STRAIN  RATE  2"  ,S2 

1055  Qsuoc-<2.303»l  .  98>»<LGT<S1  )-LGT(S2  >)/<(  l/(Tl+273  )  >-<  1  /<  T2+273  )  )  ) 

1057  PRINT  "ACTIVATION  ENERGY  -  'sQsubc 

1053  INPUT  "DO  YOU  UANT  TO  GO  AGAIN( DEF-YES »"  ,Ans7S 

1053  IF  Ans7S-"Y"  THEN  GOTO  Aet_ener 

1051  GOTO  *eys_setuo 

1070  I 

1060  I  SUB  TO  PRINT  DESIGNATED  STRAINS 

1090  Slooer:   ! 

1100  PRINT  "SLOPES  ENTEREO" 

1110  GOTO  Keys_setuo 

1  120  ! 

1130  i  SUS  TO  OUIT  STRAIN  RATE  PROGRAM 

I  140  Quitter:    I 

1  ISO  BEEP  2300  ,.  I 

1  160  FOR  0-0  TO  4 

1170  ON  KEY  0  LABEL  "OUIT"  GOTO  Quitter J 

1180  ON  KEY  0+5  LABEL  "CONTINUE"  GOTO  Keys_setup 

I  190  NEXT  Q 

1200  Ouitter_idle:      GOTO  Quitter_idle 

1210  0uitter_' :     STOP 

1223  ENO  ~ 

1221  i 

1222  i 

1230  SUB  AuscKMin, Max  .Offset  ,f!tnn,Maxn, Tick)                 !    9325                           12/02/81 

1240  iPPINT  "AUTO-SCALE  ENTERED" 

1241  i 

1250  INTEGER   Power  .N.Qir 

12S0  Range--3S<Max-Min ) 

1300  Pouer-INT' LGT(Range i ) 

1310  Nor«i-Rarge/ 10'Power 

1320  N-l  3»<  Nornv-5  >+5*(  <  NormS  )    AND    (  Norn/-2  )  )  +  2»(  (  Norn<.2  )    ANO    (  Norm;  I  )  )  +  (  Norm 

-I  ) 

1333  Inter-OROUNOlN»10"tPouer-i  )  ,  I  ) 

1340  Oir-SGiNvMin-Max  i 

1353  X-iMin-Of fset >/l0"Power    - 

1350  G0SU9   Rout 

1370  Minm-Rout  •  I  O'Pouer-t-Of  f  set 

1330  Dxr-SSNCttax-Mim 

1333  X-i Max-Offset )/10*Pouer 

1400  60SUB   Rout 

1410  Maxn-Rout •l0"Pouer*Of f set 

M22  Tic>.«OP.O'JNO!  ASS<  pijji"-":--  '.'Irter^l  .  INT'.  L'3T(  ASS;  (  Kaxn-Hlrtn  !/Ir.»er»!  >>+!  ))        . 


Figure  69.    Computer  Program  to  Reduce  Creep  Data,  Plot  Creep  Rate 
Curves  and  Print  Data  Tables  (Continued) 


113 


U30  GOTO   Exit 

1442  Rout:    Test-ABSfX  )-!NT(ABS<X)  >       !    ROUND    X    TO   MULTIPLE    OF   N    IN   DIRECTION   Oir. 

1453  Digit-INTC 10'Test  ) 

146a  Dei*.a-uigit«(N-tB)+Oigit   MOD  N»(N<:iai 

1473  Round-t (35N(X >«Oir    3>«N-S6N<X >.Oir.Oelta'/l0.< (Teat-Digit/13   OR   0eltaK>3 

1480  IF   AB5(SGN(X  >»Oig:t/ 1 0*0ir«»ouno >> I    THEN   Round-I -Digit/ 13 

14S0  Rout-SGNtx  )*(  INTI A3SiX  > >»D i gi t/ 13  1+0 ir .Round 

1530  RETURN 

1553  Exit:  SU8EN0 

1SG0       i 

15-3       i 

2273  5UB  Plot<  Xnin  ,Xnax  ,Ymn  ,Yna«  ,Xt  ic  ,Yt  ic  .X  log  .flog  ,X$  ,  YS  .<<  •  )  ,Y(  •  I  ,N  ,Ti  ♦  leS 

"33  i   9825  01/26/8: 

::90  IPRINT  "PLOTTER  ENTERED" 

2291  I 

2330  INTEGER  Pointr .Minor  ,Maj tic  .Mint ic  ,Penc 

2310  OEG 

2320  NI-INT(ABS<N>  > 

2S30  Xnajor-INT(nBS(XtiC  )  )  i  VARIABLE  SETUP 

2543  Ymajor-INT(ABS< Ytic ) ) 

2553  Cxmax-<nax 

2553  IF  Xlog  THEN  C*nax-i-6T(Xriax  ) 

2570  Cxmn»<mn 

2530  IF    Xlog    THEN   Cxmin-LGT< Xrun ; 

2S93  Cynax-*max 

2591  Y1-<  l.E-B+Ymax) 

2630  IF  Ylog  THEN  Cynax-LGT< Yl  ) 

2610  Cyi"<in"*mn 

251  I  Y2»>  1  .£-3  +  rnin ) 

2623  IF  Ylog  THEN  Cymin-i_GT<  Y2  > 

2630  IF  CxmirKCxmax  THEN  GOTO  X_ok  i  MAKE  5URE  Max  >  Mm 

2540  Qummy*CAnin 

2553  Cxmi n-C/nax 

2653  Cxmax"Oun«y 

2573  X_ok:   IF  Cynin<Cynax  THEN  GOTO  Y_ok 

2530  Oumny"Cymin 

2590  Cynin-Cynax 

2700  Cymax*Oumny 

2710  Y_ok:Cheignt-!5/4.54  !  CHARACTER  SIZE  AND  TICK  LENGTH  IN  GDU 

2720  Cwidth-.S'Cheignt 

2720  TicR-Cwidth 

2740  IF  RATI0>-1  THEN  ICALC  VEST.  AND  HORIZ.  LIMITS  IN  GDU 

2753      ye-t-100 

2760      Horiz-CATIO»I00 

2770  ELSE 

27e0      Hori:-I30 

2790      Vert-'00/RATIO 

2930  ENO  IF 

2910  Gdux-Horiz-10«Cwidth-Cheignt-Tick  i  AXIS  LENGTH  IN  GDU 

2523  6duy»Vert-9.5«Cuidth-2.5»CheiQnt-Tlck 

2830  i    CONVERT   HARD   LIMITS    0,Horiz    TO    DATA   UNITS    Xlouer,    XuDDer,    etc. 

2  84  0  xlouier-Cxnin-(  9 .  5»Cwi dth+Cheignt +  Tick  )/6dux*<Cxnax-Cxnm  ) 

2853  Xuacer»C«naxt .  5»CuiDth/Gdux.<  Cxnax-Cxnin ) 

2863  Ylouer-Cynin-( Cheignt  +  9.3»Cuidt h*TlCk  >/Gduy«< C>nax-Cymn  ) 

2970  Yuooer-Cvpiaxt-l  . 5«Ch»igm/Gduy.<  Cymax-Cynin  ) 

2530  xticlen'Tick/Gduy.tCymax-Cymn) 

2990  Yt  iclen-Tick/Gdux»<  Cxnax-Cxnm  ) 

2930  VIEWPORT   0. Horn  ,3.'.'ert  '    SETUP    PLOTTING   PARAMETERS. 

2910  PIVOT    3 

2920  MOVE    0  ,3 

2933  WINDOW    Xlower  .XuODer  .Ylouer  .Yuooer 

2  =  40  CSIZE   Cheight  .Caidtn/Cheignt 

2953  CLIP    Cxnin  .Cxnax  .Cynm  .0 /r»ax 

2963  IF    Xnajor-0   THEN   GOTO    Y_axis 

2970  Minor-INTf 10. ( ABSfXtic  )-Xnajor  )  )  'PLOT   X    AXIS 

?C,Ra  Tii-tinar»<'.n«>-<*<i<in 
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2990  IF  Xnajorvl  THEN  Tic*  space"'  Cxnax-Cxnm  )/  (  Xns  joi — I) 

3000  MOVE  Cxmn  ,Cynin 

3010  QRAU  Cxnax.Cynin 

3023  10RG  8 

3030  LOIR  0 

3040  FOR  Hajtic-I  TO  Xnajor 

3050  Majpos'Cxninf Tickspace** Ma j t ic-1  ) 

3060  MOVE  Majpos  .Cymn-Xt  lclen 

3070  Labl-Majpos 

3080  IF  Xloq  THEN  LaO  1-1 0"Majpos 

3090  IF  <  <ABS<LaBl  ):•-!  .E+S  >  OR  < ABS< Labi K 1 .E-l  > >  ANO  (Labl<>0)  THEN  GOTO  Fl 

oatx 

3100  IF  LaBl<>0  THEN 

3110  Tenp  — INTILGTf  ABSILabi  >  >>-l 

3120  IF  Tenp<,-0  THEN  Temp-0 

3130  Labl-OROUNO(Labl  ,7-Tenp) 

3140  ENO  IF 

3150  CLIP  OFF 

3150  LABEL  USIN6  "»,K" iLabl 

3170  CLIP  ON 

3180  PENUP 

3190  GOTO  Xticnark 

3200  Floatx:CLIP  OFF 

3210  LaBl-OROUNO(Labl  ,2  ) 

3223  LABEL  USING  "S.K'jLabl 

3230  CLIP  ON 

3240  PENUP 

3250  Xt  lcmai-K  :MOVE  Majpos  ,Cymin 

32G0  IF  Xtic;0  THEN  IORAU  O.XUcien 

3270  IF  (Minor-0)  OR  (  Maj  t  ic-<na  jor  )  THEN  GOTO  No_»ninor 

3280  Mininc-Tickspace/(Minor-*l  >                           !  PLOT  MINOR  TICKS 

3290  IF  Xlog  THEN  Mimnc-<  i  0"  (  Majpos* Ticksoace  /-I  2*Ma  jpos  )/(  Minori-I  ) 

3300  FOR  Mimical  TO  Minor 

3310  Minpos"Majpos+Mininc»Mint lc 

3320  IF  Xlog  THEN  Minpos-L5T( 1 0"Ma jpos+Mlmnc'Mint  ic > 

3330  MOVE  Minpos.Cynin 

3340  IDRAU  3,Xticlen/2 

3353  NEXT  Mimic 

3360  No_xninor:  NEXT  Majtic 

3370  LDIR  0                                                     i  X  AXIS  LABEL 

3380  LOPG  4 

3390  MOVE  !Xlower*Xupper  )/2  .Ylouer 

3400  CLIP  OFF 

3410  LABEL  USING  "*,K-;XS 

3420  CLIP  ON 

3430  PENUP 

3443  y_axis:    IF  Ynajor- 0  THEN  GOTO  Oataplot 

3450  Minor-INT(  10»'  ABS<Ytic  )-Ynajor  )  )                             !  PLOT  Y  AXIS 

3460  Ticksoace-Cynax-Cynin 

3470  IF  r'major-M  THEN  Tickspace"*  Cynax-Cymn  )/(  Ynajoi — 1) 

3480  MOVE  Cxnin.Cynm 

3490  DRAW  Cxnin.Cynax 

3500  L0R6  8 

3510  LOIR  0 

3520  FOR  Majtic-i  TO  Ynajor 

3520  Majpos"Cynin+Tickspace«t Ma j t  ic- I  ) 

3540  MOVE  Cxmn-Yticlen. Majoos 

3553  Labl"Majpos 

3553  IF  Ylog  THEN  Labl-l 0"Majpos 

3570  IF  ( <A9S<Labl  )>-l .5*5)  OR  (  ABS< Labi  )< 1 .E-4  )  )  ANO  (LablOO)  THEN  GOTO  Fl 

oaty 

3530  IF  Labl<>0  THEN 

3590  Tenp  —  INTC  LGT(  ABSC  Labi  )  ))-l 

3800  IF  Tenp<.-0  THEN  Tenp-0 

3610  Labl-OROUNO( Labi ,7-Tenp ) 

3fi?0  ENO  IF 
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2633 

CLIP  OFF 

3540 

LASEL  USING  "»,K"  iLabl 

3553 

CLIP  ON 

3553 

PENUP 

3573 

GOTO  vticmark 

3530 

Floaty:   CLIP  OFF 

3590 

Laol-OROUNOiLaOl .2 ) 

3700 

LABEL  USIN6  •*  ,K- ;LaOl 

3710 

CLIP  ON 

3720 

PENUP 

3733 

Vtlcnark:    MOUE  C*nin  .Ma jpos 

3740 

IF  Ytic/0  THEN  IDRAU  Yticlen,3 

3753 

IF  (Minor-0>  OR  <.  Maj  t  ic-»najor  )  THEN  SOTO  No_yminor 

37S0 

Mininc-Tickspace/(Minor*l  )                          i  PLOT  MINOR  TICKS 

3770 

IF  Ylog  THEN  M  tninci  1  3" ( fla jpos*T ickspace  (-1  3"Majpos  >/<  Minor*  1  ) 

3780 

FOR  Mmtic-I  TO  Minor 

3790 

Minoos"Majpos+Mininc«Mintic 

3800 

IF  Uog  THEN  Minoos-LGT(  13"Ma  jpos+Mininc'Mint  lc  ) 

3810 

MOVE  Cxmn.Minpos 

3823 

IDRAU  Yticlen/2  .3 

3830 

NEXT  Mintic 

38*0 

No  yninor:  NEXT  Majtic 

3853 

LOIR  90                                                    '  Y  AXIS  LABEL 

3860 

LORG  5 

3873 

MOUE  Xlouer  ,(  Ylower+Yupper  )/2 

3880 

CLIP  0F= 

3390 

LABEL  USING  "S ,K" lYl 

3330 

CLIF  ON 

3910 

PENUP 

3920 

Datapiot :    LOIR  3 

3930 

IF  ni-0  "HEN  GOTO  Titleplot 

3940 

LORG  3                                                    'PLOT  DATA 

3953 

Penc--2 

3353 

FOR  Pointr-1  TO  Nl 

3973 

Xx-X<  Pointr ) 

3980 

IF  Xlog  THEN  Xx-LGT( X( Pointr ) ) 

3993 

Yy-Y<Pointr ) 

4003 

IF  Yl3g  THEN  Yy-LGT(Y(Pointr ) > 

4013 

IF  Psnc--2  THEN  MOVE  Xx.Yy 

4023 

IF  Penc  — 1  THEN  ORAUI  Xx  ,Yy 

4033 

IF  N<3  THEN 

4040 

cl:d   OFF 

4053 

LABEL  USING  "J  ,K" ;  '•" 

4050 

CLIP  ON 

4073 

PENUP 

4eeo 

ENO  IF 

4330 

senc—  l-i  N<0  ) 

4100 

NE'.T  Pointr 

4110 

Titieoiot:    LORG  5                                         '  PLOT  TITLE 

4123 

MOVE  < Xlower*Xupper  )/2  .Yupper 

4130 

cl:=  OFF 

4  1  40 

LA9EL  USING  'J  ,K" iTitleJ 

41=3 

CLIP  ON 

4153 

PENUP 

4250 

SU3EN0 

Figure  69.     Computer  Program  to  Reduce  Creep  Data,  Plot  Creep  Rate 
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